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EXPERIENCIA Y PRACTICAS EN LOGO ¡ 


GUARDAR Y RECUPERAR 
DIBUJOS 


== Guardar dibujos 


A conocemos la forma de 
guardar procedimientos en 
diferentes soportes de infor- 
mación, que dependiendo 
del ordenador, consiste en 
uno u otro. La forma de rea- 
lizarlo, también varía según 
el ordenador con el que tra- 
bajamos. 
El Logo nos permite también guardar 
directamente dibujos que hayamos realizado. 
En este caso lo que se guarda no es un 
procedimiento que realiza un dibujo determi- 
nado, sino un dibujo que se encuentra en la 
pantalla. 
La primitiva que nos permite esto es: 
— GUARDADIB 


Esta orden es la abreviatura de GUAR- 
DADIBujo. 

La forma de utilizarla es: 

? GUARDADIB "nombre fichero 


Una vez que esta orden es introducida, 
el contenido que haya en ese momento en la 
pantalla será almacenado en el fichero que se 
especifica. 

En la pantalla también se encuentra tex- 
to, éste será también almacenado. 

También vimos que cuando los proce- 
dimientos se guardaban, el nombre del fiche- 
ro que habíamos dado aparecía con una ex- 
tensión, que consistía en un punto y tres letras 
(LOG). De esta forma sabíamos que el fichero 


correspondía a un fichero del Logo compues- 
to de procedimientos. 

A la hora de guardar dibujos ocurre lo 
mismo, pero en este caso la extensión varía y 
es: 


.DIB 


De esta forma siempre que nos encon- 
tremos un nombre de fichero con la extensión 
.DIB, sabremos que se trata de un dibujo que 
hemos guardado previamente. 

También podemos encontrar versiones 
que en lugar de la extensión .DIB, ponen la ex- 
tensión .IM. 

La primitiva GUARDADIB corresponde 
a las versiones del Logo para los MSX y PC- 
COMPATIBLES. 

Para el caso del SPECTRUM es: 


? GUARDAPANT "nombre fichero 
Abreviatura de GUARDAPANTalla. 


Recuperar dibujos 


Al igual que los procedimientos que 
previamente se habían guardado se podían 
recuperar, es decir, volver a cargarlos en la 
memoria del ordenador, las pantallas guarda- 
das también pueden ser recuperadas. 

Para esto lo único que hay que hacer es 
dar la orden oportuna para cargar de nuevo 
la pantalla deseada. 

La orden que nos permite esto es: 


— CARGADIB 
Abreviatura de CARGADIBujo. 
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La forma de dar correctamente esta or- 
den es: 


? CARGADIB "nombre fichero 


Una vez introducida, el fichero que se 
especifica se recuperará en la pantalla. 


El fichero que se especifica tiene que 
corresponder con uno que previamente se 
haya guardado con GUARDADIB. 

En la pantalla aparecerá una copia 
exacta de lo que se había guardado, tanto grá- 
ficos como textos. 

El archivo que se carga no podrá ser 
nunca uno con la extensión .LOG. 

Al igual que ocurría con GUARDADIB, 
la primitiva CARDADIB es válida para las ver- 
siones de los MSX y PC-COMPATIBLES, pero 
para las versiones de Logo del SPECTRUM 
esta orden es: 


? CARGAPANT "nombre fichero 


Abreviatura de CARGAPANTalla. 

Es conveniente que la pantalla esté en 
modo mixto o gráfico para que la recupera- 
ción del fichero sea correcta. 


2 La recursividad 


Recordemos con unos ejemplos la par- 
te que ya conocemos de la recursividad. 

— Recursividad en un procedimiento 
sin entradas, 


? PARA CIR 

> MT 

> REPITE 36 [AV 5 GD 10] 
> GD 45 

> CIR 

> FIN 


La Tortuga permanecerá dibujando 
círculos de igual tamaño variando la posición 
45 grados, hasta que detengamos manualmen- 
te la ejecución del procedimiento. 


? BP CIR 
— Recursividad en un procedimiento 
con una entrada. 


? PARA ECIR :T 


Fig. 1. 


> MT 

> REPITE 36 [AV :T GD 10] 
> GD 45. 

> ECIR (T + 0,1) 

> FIN 


El procedimiento ECIR tiene una entra- 
da que determina el tamaño del círculo, en la 
llamada recursiva incrementamos el tamaño 
del círculo 0,1 puntos. 

La ejecución del procedimiento tam- 
bién debe detenerse manualmente. 

Así pues, la única diferencia respecto 
al procedimiento CIR, es que en éste vamos 
variando el tamaño de cada círculo que se di- 
buja. 


? ECIR 2 


Fig. 2. 


El tamaño del primer círculo que se di- 
buja lo determinamos cuando ejecutamos el 
procedimiento. 


ye , w SARENET A > A 
. 13 A Se, A Y 
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Pero la recursividad es todavía más po- 
tente. 


Veamos su efecto en procedimientos de 
dos entradas. 


? PARA GECIR :T :G 

> REPITE 36 [AV :T GD 10] 
> GD :G 

> GECIR (T +0.1)GG + 45) 
> FIN 


El procedimiento GECIR tiene dos en- 
tradas: 


T determina el tamaño del círculo. 


G determina el giro que da la Tortuga 
entre un círculo y otro. 


En la llamada recursiva variamos los va- 
lores de entrada del procedimiento, consi- 
guiendo así que el tamaño del círculo aumen- 
te continuamente en 0,1 puntos y que el giro 
entre un círculo y el siguiente aumente cada 
vez en 45 grados. 


? GECIR 2 45 


Fig. 3. 


Hemos ejecutado el procedimiento ini- 
cializando el tamaño del círculo a 2 y el giro 
a 45. 

Y como en los casos anteriores la eje- 
cución se detiene manualmente. 

Observando la sintaxis de las llamadas 
recursivas, en procedimientos de una y dos 
entradas, deducimos que en un procedimien- 
to de N entradas la llamada recursiva debe 
contener N datos. 


= Recursivación con parada 


La solución a la pesada tarea de dete- 
ner manualmente la ejecución de un procedi- 
miento recursivo es: 

Introducir en el procedimiento una con- 
dición de parada. 


? PARA NCIR :N 

> SI:N < 1 [ALTO] 

> REPITE 36 [AV 5 GD 10] 
> GD 45 

> NCIR :N -1 

> FIN 


Una de las líneas del procedimiento 
NCIR es una condición, si el valor de la varia- 
ble N es menor que 1, el procedimiento se de- 
tendrá. 

La variable N adquiere valor la prime- 
ra vez que se ejecuta el procedimiento, a par- 
tir de entonces ese valor inicial irá decremen- 
tándose en una unidad, y cuando sea inferior 
a uno, la ejecución del procedimiento se de- 
tendrá. 

Si queremos que la Tortuga dibuje cin- 
co círculos tecleamos: 


? NCIR 5 


Fig. 4. 
si queremos que sean ocho: 
? NCIR 8 


Con una sola condición hemos indicado 
el número de veces que queremos que se eje- 
cute el procedimiento recursivo. 

Si nos encontramos ante un caso en el 
que el número de veces que debe ejecutarse 
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un procedimiento es desconocido, podemos 
establecer una salida que dependa de una ac- 
ción que se realice. ; 
Por ejemplo, que el procedimiento se 
detenga si se ha pulsado alguna tecla. 


? PARA CUADRADOS 

> SI TECLA? [ALTO] 

> REPITE 4 [AV 20 GD 90] 
> GD 45 

> CUADRADOS 

> FIN 


En CUADRADOS, si se ha pulsado una 
tecla el procedimiento se detiene, si no la Tor- 
tuga dibuja cuadrados iguales en la pantalla. 

También podemos establecer que sea 
una tecla determinada la que dé fin a la ejecu- 
ción. 

? PARA CUADRADOS 

> SI TECLA? [SI LEECAR= ”F" [ALTO]] 

> REPITE 4 [AV 30 GD 90] 

> GD 20 

> CUADRADOS 

> FIN 


El procedimiento CUADRADOS se eje- 
cutará hasta que se pulse la tecla (FP). 


?CUADRADOS 


Cuando vemos que la figura ya se ha di- 
«bujado detenemos la ejecución. 

Ahora que ya sabemos mucho sobre la 
recursividad, repitamos un ejercicio que ya 
vimos con anterioridad, pero aplicando en él 
la recursividad. 

El ejercicio en cuestión nos permite di- 
bujar, moviendo la Tortuga con las teclas del 
cursor, directamente sobre la pantalla. 


Primero definimos un procedimiento 
para inicializar la pantalla. 


? PARA DEFID 
> BP 

> BL 

> PONCL 1 

> MT 

> HAZ”P 1 

> DIBU 

> FIN 


El procedimiento DEFID le pasa el con- 
trol al procedimiento DIBU. 


? PARA DIBU 

> POSID 

> SI :F = 27 [ALTO] [DIBU] 
> FIN 


DIBU se reejecutará mientras no se pul- 
se la tecla ESC. 

Cada vez que se ejecuta DIBU se ejecu- 
ta POSID. 


? PARA POSID 

> HAZ 'B LEECAR 

> HAZ 'F ASCII :B 

> SI :F = 43 [HAZ "P :P + 1 ALTO] 

> SI:F = 45 [HAZ "P :P - 1 ALTO] 

> SI :F = 66 [BL ALTO] 

> SI :F = 83 [SL ALTO] 

> SI :F = 71 [GOMA ALTO] 

> SI :F = 82 [RELLENA ALTO] 

> SI :F = 78 [BP ALTO] 

> SI :F = 27 [ALTO] 

> HAZ 'B LEECAR 

> HAZ 'F ASCII :B 

> SI :F = 72 [PONRUMBO O AV :P] 
> SI :F = 80 [PONRUMBO 180 AV :P] 
> SI :F = 75 [PONRUMBO 270 AV :P] 
> SI :F = 77 [PONRUMBO 90 AV :P] 
> FIN 


Las teclas que tienen una función en el 
manejo de este procedimiento son: 


+ Pulsando esta tecla aumentamos el 
número de puntos que salta la Tortuga al dar 
un paso. 

- Para decrementar el número de pun- 
tos de cada paso. 

B Activar el lápiz. 

S Desactivar el lápiz. 

G Activar la goma. 


La recursividad simplifica la resolución 


de procedimientos. 


IS IT E E E 


R Rellenar. 
N Borrar la pantalla. 
ESC Detener la ejecución. 


Y las cuatro teclas de movimiento del 
cursor para dirigir a la Tortuga. 

Introduce estos tres procedimientos en 
tu ordenador e intenta realizar el siguiente di- 
bujo. 

Para empezar teclea: 

? DEFID 


y empieza a dibujar. 


Fig. 6. 


Recuerda que puedes guardar un dibu- 
jo con la primitiva: 


(Dependiendo del ordenador.) 


+ PC-Compatibles 
? GUARDADIB "nombre del fichero 


e SPECTRUM 
? GUARDAPANT "nombre del fichero 


e MSX 
? GUARDADIB "nombre del fichero 


Y que puedes recuperarlo con la primi- 
tiva: 
(Dependiendo del ordenador.) 


e PC-Compatibles 
? CARBADIB "nombre del fichero 


e SPECTRUM 
? CARGAPANT "nombre del fichero 


e MSX 
? CARGADIB "nombre del fichero 


- Cuadro resumen 


— GUARDADIB "nombre de fichero 


— GUARDAPANT "nombre de fichero 
(Para el SPECTRUM) 


El contenido de la Pantalla en el mo- 
mento que se introduce esta orden (gráficos 
y/o texto), es almacenado en el soporte acti- 
vado bajo el nombre del fichero que se especi- 
fica. $ 


— CARGADIB "nombre de fichero 


— CARGAPANT "nombre de fichero 
(Par el SPECTRUM) y 


El fichero que se especifica se recupe- 
ra en la pantalla. La pantalla aparece exacta- 
mente igual a como estaba en el momento de 
haber sido guardada. 


== Ejercicios 


1. Define un procedimiento que realice el si- 
guiente dibujo, teniendo en cuenta que 
cuando pulse la tecla (M) la Tortuga debe 
detenerse unos instantes, y que cuando se 
pulse la tecla (F) la ejecución del procedi- 
miento debe mantenerse por completo. 


Fig. 7. 


2. Utilizando la recursividad, resuelve el pro- 
blema de hallar el factorial de cualquier 
número. 

3. Intenta realizar el siguiente dibujo: 


Un fichero, guardado mediante “GUARDADIB”, 
nunca se puede cargar con “CARGA”, 
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Fig. 8. 
4. Define un procedimiento recursivo para 
cada una de las espirales siguientes: 


Fig. 9. 


Fig. 10. 


Fig. 11. 
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Define un único procedimiento con el que se 
puedan dibujar las tres espirales anteriores, 
dependiendo de los valores que se den a va- 
riables de entrada. 

5. ¿Son correctas las Órdenes siguientes? 


— ? PARA AV 
> AV:V 


— ?PARAC 
>HAZ '"V 10 
> REPITE 4 [AV :V GD 90] 
>CV+4 
> FIN 


— ? PARA NADA 
> MT 
> OT 
> NADA 
> FIN 


— ? PARA MAS 
>SI :L = 0 [ALTO] 
> MAS 
> FIN ; 


— ?PARA CASO :L:A 
> ESCRIBE :L 
> ESCRIBE :A 
> SI:L > 50 [HAZ "L 5] 
> GCI:A 
> AV:L 
> SI:A > 300 [ALTO] 
> CASO :L+1:A+1 
> FIN 


Solución de los ejercicios 


El procedimiento para realizar el dibujo 
sería el siguiente: 
? PARA CURVA :L 
> AV: :L 
> REPITE 18 [AV :L GD 10] 
> CURVA :L +1 
> FIN 


gráficos pueden sex 


'O. 


Como queremos que al pulsar la tecla (M) 
la Tortuga se detenga unos instantes, estable- 
cemos una condición. 


US [SI LEECAR = "M [ESPERA 


También queremos que la ejecución fina- 
lice si se pulsa la tecla (F), lo cual implica otra 
condición. 

SI TECLA? [SI LEECAR = F [ALTO]] 


Una vez establecidas las dos condiciones 
las añadimos en el procedimiento anterior, y 
nos queda: 


? PARA CURVA :L 

> AV:L 

> REPITE 18 [AV :L GD 10] 

> SI TECLA? [SI LEECAR = "M [ESPE- 
RA 40]] 

> SI TECLA? [SI LEECAR =”F [ALTO]] 
> CURVA :L+1 

> FIN 


Para ejecutarlo tecleamos 
? CURVA 2 , 


y comprobamos que funciona todo bien pul- 
sando las teclas (M) y (FP). 


La 

La función principal del procedimiento 
FAC es inicializar la variable en la que se acu- 
mularán los productos. 

La entrada de este procedimiento será el 
número del que queremos hallar el factorial. 

Una vez inicializada la variable C, llama- 
mos al procedimiento FACT indicando los da- 
tos M y C. 


M número 
C valor inicial del acumulador 


? PARA FAC :M 
> HAZ C(:C*:M) 
> FACT :M:C 

> FIN 


En FACT se calcula y escribe el factorial 
de M. 


? PARA FACT :M :C 
? HAZ C (C*:M) 


> SI:M = 1 [ESCRIBE :C ALTO] 
> FACT:M-1:C 
> FIN 


Para calcular el factorial de 5 


? FACT 5 
120 


Para realizar el dibujo vamos a ir definien- 
do procedimientos que dibujen diferentes 
partes. 

En primer lugar definimos el que dibuja 
la base de las columnas. 

Utilizamos dos variables, PX y PY, para 
determinar el punto de la pantalla donde va a 
ir dibujada cada una de las columnas. Desde . 
ese punto (PX, PY), se comienza a dibujar la 
base: 


? PARA BASE :PX :PY 
> SL 

> PONX :PX 

> PONY :PY 

> PONRUMBO 0 

> BL 

> REPITE 2 [AV 10 GD 90 AV 30 GD 90] 
> AV 10 GD 45 

> AV 13 

> SL 

> AV 12GD 45 

> AV20 

> BL 

> AV 10GD 90 

> REPITE 2 [AV 10 GD 45 AV 25 GD 
135] 

> SL 

> PONX :PX + 10 

> PONY :PY + 15 

> PONRUMBO 0 

> BL 

> COLUMNA 

> FIN 


Sólo dibujamos la parte de la base que se 
ve. Las líneas que van a aparecer tapadas no 
las dibujamos. 

Este procedimiento hace al final una lla- 
mada a COLUMNA que es el que va a dibujar 


Para recuperar un fichero correctamente en 
pantalla es conveniente estar en modo mixto 


o de gráficos. 
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la columna. Previamente, colocamos a la Tor- 
tuga en el punto adecuado de la base: 


? PARA COLUMNA 

> REPITE 2[AV 50 GD 90 AV 20 GD 90] 
> AV 50 GD 45 

> AV 10 GD 45 

> AV 20 GD 90 

> REPITE 2 [AV 50 GD 45 AV 10 GD 
135] 

> GD 45 

> SL 

> AV19 

> BL 

> RELLENA 

> FIN 


Si ahora ejecutamos el procedimiento 
BASE con los dos valores siguientes: 


? BASE 00 


obtenemos el siguiente dibujo: 


Fig. 12. 


A continuación definimos un procedi- 
miento para dibujar las cuatro columnas en la 
pantalla. Para ello lo que hacemos es cuatro 
llamadas a BASE con diferentes valores de en- 


trada: 


? PARA CUATRO 
> BASE -100 -60 
> BASE 20 -60 

> BASE -30 10 
> BASE 90 10 

> FIN 


Una vez tenemos las cuatro columnas di- 
bujadas, definimos el procedimiento que dibu- 
ja las líneas inferiores que las rodean: 


? PARA LINEA 

> BL 

> PONRUMBO 45 
> SL 

> AV 53 
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> BL 

> AV 46 

> SL 

> AV 25 GD 45 
> AV 30 

> BL 

> AVO90 

> SL 

> AV 30 SL 135 
> SL 

> AV 25 

> BL 

> AV 74 

> SL 

> AV 25 GD 45 
> AV30 

> BL 

> AVO90 

> FIN 


El procedimiento LINEA1, dibuja las lí- 


neas que va de columna a columna: 


? PARA LINEA] 

> PONRUMBO 0 
> SL 

> PONPOS [-75 10] 
> BL 

> AV10 

> PONPOS [115 90] 
> RE 10 : 

> SL 

> PONPOS [45 10] 
> BL 

> AV10 

> PONPOS [-5 90] 
> RE 10 

> FIN 


Una vez que tenemos las diferentes par- 


tes del dibujo, definimos un último procedi- 
miento que una a todos los demás: 


? PARA DIBUJO 

> BP 

= OT 

> CUATRO 

> SL 

> PONPOS [-100 -60] 
> LINEA 

> SL 

> PONPOS [-100 -55] 
> LINEA 

> SL 

> PONPOS [-100 -50] 
> LINEA 

> LINEA1 

> FIN 


Para ejecutarlo: 
? DIBUJO 


Para dibujar este tipo de espirales tene- 
mos que ir aumentando el tamaño de los lados 
que la forman. Para ello definimos procedi- 
mientos recursivos con una variable de entra- 
da que es la que va a determinar la longitud 
del primer lado. La llamada de nuevo proce- 
dimiento se realiza asignando un valor a la va- 
riable aumentando en una cantidad fija. 


También tenemos que fijarnos en el ángu- 
lo que están formando los lados que la compo- 
nen: 


La primera, tiene sus lados formando án- 
gulos de 90 grados. 


El procedimiento que la dibuja es: 


?2 PARA A :L 

> AV:L 

> GD 90 ' 
>A:L+3 

> FIN 


Hemos fijado el aumento del tamaño de 
cada lado, en tres puntos. 

Para ejecutarlo bastará con indicar el 
nombre del procedimiento y asignar un valor 
inicial a la variable, por ejemplo: 


?A10 


La segunda espiral es triangular, y sus la- 
dos están formando ángulos de 120 grados: 


? PARA B:L 
> AV:L 

> GD 120 
> B:L+3 
> FIN 


Al igual que la anterior para ejecutarlo 
podemos introducir, por ejemplo: 


?B10 


Por último, tenemos una espiral con forma 
de pentágono, así que sus ángulos tienen que 
ser de 72 grados: 


2 PARA C :L 
> AV:L 
> GD 72 
>C:L+3 
> FIN 
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Para ejecutarlo: 
?2Cc10 


Observa que siguiendo esta regla pode- 
mos dibujar, con sólo ir variando los grados, 
espirales con todas las formas de las figuras 
geométricas. 


Por ejemplo, si queremos una con forma 
de hexágono: 


? PARA D :L 
> AV:L 
> GD 60 
>D:L+3 
> FIN 


Si lo ejecutamos: 
?D10 


obtenemos: 


Fig. 13. 


Para dibujar, aparte de las espirales ante- 
riores, todas las que queramos, tenemos que 
definir un procedimiento con dos variables de 
entrada. Una para el lado y otra para el ángulo. 


A la hora de realizar la llamada a sí mis- 
mo, tenemos que ir aumentando el valor de la 
variable que determina la longitud del lado, 
pero dejar fijo el valor del ángulo: 


? PARA ESPIRALES :L :A 
> AV:L 

> GD:A 

> ESPIRALES :L+3:4 
> FIN 


Si ejecutas este procedimiento con dife- 


rentes valores, puedes obtener espirales 
como ésta: 


? ESPIRALES 10 122 


EXPERIENCIA Y PRACTICAS EN LOGO 000 


La llamada que realiza el procedimien- 
to C no puede llevar datos para una variable, 
ya que este procedimiento no dispone de va- 
riable de entrada. 


— ? PARA NADA 
> MT 
01 
> NADA 
> FIN 
CORRECTO 
El procedimiento NADA mantiene a la 
Fig. 14. Tortuga parpadeando continuamente. 


— ? PARA MAS 
hs > SI :L=0 [ALTO] 
> MAS 


> FIN 
? PARA AV 
> AV V INCORRECTO 


> GD :V +10 Si ejecutamos el procedimiento MAS el 


>A LOG mostrará el mensaje de error: 
> FIN . 
INCORRECTO :L NO TIENE VALOR EN MAS 


Recuerda que el LOGO exige que las va- 
Hay que dar un valor a la variable :V  tiables se inicialicen. 
cuando se vuelve a realizar una llamada al — ?PARACASO L:A 


procedimiento A. > SI:L > 50 [HAZ "L 5] 


— ?PARA B > CI:A 
> B > AV:L 
> FIN > SI:A >'300 [ALTO] 
CORRECTO. > CASO (L+ 1D CA +1) 
> FIN 
El procedimiento B no realiza ninguna ac- CORRECTO 
ción y estaría indefinidamente ejecutándose. Este procedimiento tiene dos entradas, 
? PARA C por tanto, en la llamada recursiva indicamos 
> HAZ "V 10 dos datos. 
> REPITE 4 [AV :V GD 90] El procedimiento caso se ejecutará mien- 
>C:iV+4 tras que el valor de la variable A sea menor o 
> FIN, igual que 300. 


La extensión de un fichero, donde se ha 
almacenado una pantalla, es diferente 

a la extensión de un fichero que contiene 
procedimientos. 
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A hemos visto todo lo que 
podíamos ver sobre la baja 
resolución de nuestro orde- 
nador. Ya sabemos cómo 
definir caracteres y SPRI- 
TES. Sabemos cómo diseñar 
figuras sencillas y comple- 
jas, cómo moverlas en la 
pantalla en cualquier dirección. También sa- 
bemos cómo realizar movimientos simultáneos 
y Calcular los movimientos del enemigo. He- 
mos visto cómo utilizar el teclado para contro- 
lar el movimiento y cómo realizar tablas de ré- 
cords para incluirlas en nuestros juegos. He- 
mos visto todo lo que necesitamos saber para 
realizar nuestro primer juego con nuestro or- 
denador. Pero si empezamos ahora con el di- 
seño del juego, nos va a quedar un poco 
aburrido, pues no hemos hablado para nada 
del color, de sus posibilidades y de su utiliza- 
ción, Veremos ahora cómo utilizar el color en 
nuestros juegos. 


Utilización del color 


Hemos insistido mucho en la buena pre- 
sentación de nuestros programas, por lo que 
no podía faltar una explicación sobre el uso e 
importancia del color. 

El uso del color en nuestros programas 
(aunque éstos no sean de juegos ni gráficos) 
es realmente importante. Un programa que no 
tenga cierto colorido para el usuario nunca po- 
drá ser un éxito y, con seguridad, terminará 
arrinconado y el usuario se olvidará de que 
existe. Por ello, tenemos que aprender a utili- 
zarlo. Pero no vale utilizarlo sin ton ni son. Tan 
malo y desagradable puede resultar un pro- 
grama sin colores como un programa con de- 
masiados colores o colores mal organizados. 
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Por ello, también veremos cuál es la mejor for- 
ma de utilizar el color para que no resulte ex- 
Cesivo. 

Lo primero que vamos a ver son las ca- 
pacidades de color que tienen cada uno de los 
ordenadores y cómo aprovecharlas. Como 
cada ordenador tiene una forma distinta de 
tratar y utilizar el color, vamos a separar la ex- 
plicación según el ordenador. Más adelante, 
cuando veamos las reglas básicas para su uti- 
lización de forma que los colores no molesten 
al usuario, daremos una serie de consejos que, 
salvo excepciones, servirán paa todos los or- 
denadores. 


¡ El color en el SPECTRUM 


El SPECTRUM fue, junto con el COM- 
MODORE, el primer ordenador doméstico que 
apareció en el mercado con la posibilidad de 
usar colores. Aunque no se puede decir que 
disponga de muchos y que su utilización sea 
muy cómoda, éstos son suficientes para un 
programador medio. 

El SPECTRUM tiene 8 colores. Estos son: 


Negro 

Azul oscuro 

Rojo 

Morado o magenta 
Verde 

Azul claro o cian 
Amarillo 

Blanco 


2 e A O 


El ordenador asigna un número a cada 
color. Dicho número es el que hemos puesto 
junto a cada color. Cuando tengamos que de- 
cirle al ordenador que queremos cierto color, 
tendremos que darle el número de dicho co- 
lor y no sus nombres. 
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100 
110 
120 
130 
140 
150 
160 
170 
130 
190 
200 
210 
220 


REM SOS lalololalolalalololalololojokak 
REM *' PROGRAMA PARA VER LOS OCHO * 
REM * COLORES DE QUE DISPONE EL x 
REM * SPECTRUM. k 
REM AS ololailolalololalalololalokok 
REM 
CLS 
DIM 
FOR 


A$S(96) 
I=0 TO 6 
INK I 
PRINT A$ 
NEXT 1 
PAUSE O 


Con el primer programa pódremos ver 
los ocho colores que hay en nuestro SPEC- 
TRUM. 

Todos estos colores, excepto el negro, 
pueden tener dos niveles de brillo. El brillo lo 
apreciaremos en la pantalla de nuestro orde- 
nador porque los colores aparecen más claros. 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
2260 
270 
280 
» ,290 
300 


REM OSIRIS lala o lalOloloololalollololojoRK 
REM * PROGRAMA PARA VER EL BRILLO x 
REM * DE LOS DISTINTOS COLORES EN x 
REM * EL SPECTRUM. k 
E 
REM 
CLS 
DIM A$(48) 
FOR 1=0 TO 6 

INK I 

BRIGHT O 

PRINT A$; 

BRIGHT 1 

PRINT A$ 
NEXT 1 
INK 7 
BRIGHT O 
PRINT. +0,A5$; 
BRIGHT 4 
PRINT +0,A$ 
PAUSE O 


El segundo programa nos permite ver 
la diferencia entre un color sin brillo y el mis- 
mo color con brillo. Se puede apreciar que el 
color cero (NEGRO) no cambia cuando se di- 
buja con brillo. Según esto, podemos decir que 
el SPECTRUM no tiene ocho colores sino quin- 
ce. 

Antes de continuar tenemos que dejar 
claros un par de conceptos. Lo primero que 
observamos al mirar la pantalla de nuestro te- 
levisor, es que está dividida en dos zonas. La 
primera de ellas es la pantalla propiamente di- 
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cha, y será en ella donde ocurran todas las co- 
sas que veamos. La otra parte rodea a la pan- 
talla como si fuese un anillo. A esta segunda 
parte la llamaremos BORDE. 

Como ya hemos dicho, todo lo que nos- 
otros le digamos al ordenador que imprima, 
lo realizará en la pantalla. Nunca nos imprimi- 
rá nada en el borde de la pantalla. Por eso va- 
mos a ver cómo nos imprime el ordenador las 
cosas. 

Cuando encendemos el ordenador, la 
pantalla está de color blanco (el borde tam- 
bién) y todo lo que escribamos aparece en ne- 
gro. Según esto, podemos imaginarnos que la 
pantalla fuese un papel y las letras estuviesen 
escritas con tinta o con lápiz. Si nos imagina- 
mos esto con facilidad, también nos podemos 
imaginar que los colores del papel y de la tin- 
ta pueden cambiar. Esto será justamente lo 
que haremos. 


Fig. 1. 


Fig. 2. 


También es lógico pensar que podemos 
cambiar el color del papel sin tener que cam- 
biar el color de la tinta y que podemos cam- 
biar el color de la tinta sin tener que cambiar 
el color del papel. Por eso, el BASIC del SPEC- 
TRUM nos proporciona dos comandos distin- 
tos para escribir con colores. Uno de ellos 
afectará sólo al papel y el otro sólo a la tinta. 
Estos dos comandos son: 

PAPER n. Nos permite cambiar el color 
del papel al color número «n». El valor de «n» 
puede estar comprendido entre 0 y 7. Ya ve- 
remos más adelante cómo hacer que el color 
brille. 

INK n. Nos permite cambiar el color de 
la tinta al color «n». Como nota diremos que 
TINTA en inglés se escribe INK, 

No nos hemos olvidado del borde de la 
pantalla. Aunque no podamos escribir en ella, 
es lógico pensar que también la podemos 
cambiar de color para que no estropee la for- 
ma ni la presentación de nuestros programas. 
Para cambiar el color del borde, disponemos 
del siguiente comando: 

BORDER n. Nos permite cambiar el co- 
lor del borde al color «n». El borde no puede 
tener brillo, por lo que los colores siempre 
aparecerán con poca intensidad. 


100 REM ANSSSNMISISISlO dla lalalala lojoJojak 
110 REM * PROGRAMA PARA VER COMO  *x 
120 REM * CAMBIA DE COLOR EL BORDE * 
130 REM ASS SSI lalo IOIVJoloK 
140 REM 

150 FOR I=0 TO 7 

160 BORDER 1 

170 FOR J=1 TO 100 

180 NEXT J 

190 NEXT 1 


Antes de continuar con el brillo vamos 
a entender un poco mejor cómo se utiliza y 
cómo funciona el color, Se recordará que la 
pantalla del SPECTRUM estaba formada por 22 
líneas de 32 caracteres cada línea. Por lógica, 
cada posición de carácter en la pantalla pue- 
de tener un color de papel y un color de tinta 
distinto de los demás. Incluso puede tener un 
brillo distinto. 

Esto nos permite poder cambiar el co- 
lor del papel y de la tinta de cada carácter. 
Para realizarlo no hace falta hacer nada en es- 
pecial. El ordenador está hecho de tal forma 
que, cuando cambiamos la tinta o el papel, lo 
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que ya está escrito permanece del color que 
tenga, y el nuevo valor de tinta o papel será 
válido sólo para las siguientes instrucciones 
PRINT que utilicemos. Gracias a esta particu- 
laridad hemos podido realizar los programas 
uno y dos, pues, si cada vez que cambiásemos 
la tinta, cambiasen de color todos los caracte- 
res de la pantalla no hubiésemos podido ver 
todos los colores juntos. 

Pero puede resultar realmente aburri- 
do (y lento) el intentar escribir cada letra de 
un color utilizando las sentencias INK y PA- 
PER. Podemos hacer que el color cambie de 
dos formas mucho más sencillas. La primera 
de ellas es incluir la instrucción de color den- 
tro de la propia instrucción PRINT. Por ejem- 
plo, si queremos que la palabra «HOLA» apa- 
rezca con papel negro y letras en amarillo, no 
tenemos que hacer lo siguiente: 


PAPER O:INK 6:PRINT “HOLA” 


podemos escribirlo de esta otra manera: 


PRINT PAPER O;INK 6¡"HOLA” 


Lo único que tenemos que tener en 
cuenta es que todas las instrucciones de color 
han de ir separadas unas de otras (y de los de- 
más argumentos por la sentencia PRINT) me- 
diante un punto y coma (;). 

La otra forma de incluir el color dentro 
de las sentencias PRINT es mucho más senci- 
lla y rápida. Consiste en cambiar el color del 
mensaje a imprimir de forma que, dentro de 
las comillas, también le indiquemos de qué co- 
lor queremos que escriba el mensaje. Esto lo 
podemos realizar pulsando una combinación 
especial de teclas, Esas son: 

CAPS SHIFT + SYMBOL SHIFT + Núme- 
ro del color, Con esta combinación de teclas 
cambiamos el color del papel. Primero pulsa- 
mos las teclas CAPS SHIFT y SYMBOL SHIFT 
a la vez, y cuando el cursor se ponga en modo 
E pulsamos la tecla que tiene el número que 
representa al color que queremos. 

CAPS SHIFT + SYMBOL SHIFT CAPS 
SHIFT + Número de color. Con esta otra com- 
binación podremos cambiar el color de la tin- 
ta. Primero pulsamos CAPS SHIFT y SYMBOL 
SHIFT a la vez y, cuando el cursor pase al 
modo E, pulsamos, también a la vez, las teclas 
CAPS SHIFT y el número del color que hemos 
elegido como tinta. 

De esta manera no sólo ahorramos me- 
moria, sino que además vemos en el listado 
cómo se van a imprimir las frases y mensajes. 
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Con respecto al brillo, nos encontramos 
con que tenemos otra instrucción que nos per- 
mite cambiarlo. Esa instrucción es: 

BRIGHT n. Donde «n» puede tener valor 
uno o cero. Si tenemos valor cero, el brillo 
será normal (o sin brillo), Si ponemos un uno 
(1), el brillo será fuerte (o con brillo). 

El brillo afecta de igual manera a la tin- 
ta y al papel. Esto quiere decir que si un ca- 
rácter de la pantalla tiene brillo uno, enton- 
ces el papel y la tinta de dicho carácter esta- 
rán brillantes. No se puede realizar de ningu- 
na manera que mientras el papel de un carác- 
ter esté con brillo, la tinta esté sin él o al con- 
trario. 

También es posible introducir el co- 
mando BRIGHT en la sentencia PRINT. Hay dos 
formas de hacerlo. La primera de ellas es in- 
troduciendo dicha instrucción dentro del co- 
mando PRINT. 


PRINT INK 3;¡BRIGHT 1;“HOLA” 


La segunda es introduciendo el brillo 
después de las comillas del mensaje a impri- 
mir. Para ello tenemos que pulsar la siguiente 
combinación de teclas. 

CAPS SHIFT + SYMBOL SHIFT + 9. Co- 
nectamos el brillo a uno. Primero pulsamos las 
teclas CAPS SHIFT y SYMBOL SHIFT a la vez. 
Cuando el cursor se ponga en modo E pulsa- 
mos la tecla 9, 

CAPS SHIFT + SYMBOL SHIFT + 8. Des- 
conectamos el brillo. Primero pulsamos a la 
vez las teclas CAPS SHIFT y SYMBOL SHIFT. 
Cuando el cursor esté en modo E pulsamos la 
tecla 8. 

Hay que decir que estas combinaciones 
de teclas no sirven para nada si no se encuen- 
tran después de las comillas del comando 
PRINT que controla el mensaje que queremos 
imprimir, Si las pulsamos entre la letras T de 
PRINT y las comillas, aunque veamos el men- 
saje tal y como queremos, éste no se imprimi- 
rá de esa manera, sino con los últimos valores 
directos de INK y de PAPER utilizados. 

También hay que decir que los coman- 
dos de color, ya sea por instrucción o por la 
pulsación de una combinación de teclas, tie- 
nen prioridad sobre la última instrucción de 


color dada. Dentro de estos dos tipos de intro- 
ducción de color dentro de la sentencia 
PRINT, tiene más prioridad la combinación de 
teclas que la inclusión de comandos en la lí- 
nea. Por ello, una línea como la siguiente: 


INK 3:PRINT INK 4;“HOLA” 


imprimirá la palabra HOLA en color 4 y no en 
color 3. Si dentro de las comillas hubiésemos 
pulsado la combinación de teclas que me dan 
el color 7, la palabra HOLA aparecerá en blan- 
co. 

Aunque no tiene mucho que ver con el 
color, el SPECTRUM nos permite imprimir 
mensajes parpadeantes. Esto lo podemos rea- 
lizar con el comando FLASH. La acción de este 
corrando es que, cuando se imprima un men- 
saje, primero lo imprimirá normal, pero un mo- 
mento después lo imprimirá de forma que lo 
que tenía color de tinta ahora tiene el color del 
papel y lo que tenía color de papel pasa a ser 
del color de la tinta. Para entender mejor el 
funcionamiento de esta sentencia se reco- 
mienda introducir el programa número 4. 

La sintaxis de esta sentencia es igual 
que la de BRIGHT, 

FLASH 1. Hace que todo lo que se im- 
prima a continuación aparezca parpadeando. 

FLASH 0. Anula la acción de FLASH 1. 
Si no se hizo antes FLASH 1, el poner FLASH 
O no da ningún efecto. 

El comando FLASH también puede ser 
incluido dentro de una línea de PRINT de las 
dos maneras que hemos visto. La combinación 
de teclas que nos permitirán hacer que pode- 
mos colocarlo dentro de las comillas de un 
PRINT son las siguientes. 

CAPS SHIFT + SYMBOL SHIFT CAPS 
SHIFT + 9. Conecta el FLASH. Primero pulsa- 
mos las teclas CAPS SHIFT y SYMBOL SHIFT 
a la vez y cuando el cursor esté en modo E pul- 
samos las teclas CAPS SHIFT y 9 también a la 
vez. 

CAPS SHIFT + SYMBOL SHIFT CAPS 
SHIFT + 8. Desconecta el FLASH. Primero te- 
nemos que pulsar las teclas CAPS SHIPT y 
SYMBOL SHIFT a la vez. Cuando el cursor se 
ponga en modo E entonces pulsamos, también 
a la vez, las teclas CAPS SHIFT y 8. 


100 REM seaoaO lalalala loja lola lalolajalaloiolobioior 
110 REM * PROGRAMA PARA VER EL USO * 


120 REM * DEL COMANDO FLASH 


* 


130 REM d*dSSdO do IlSlobIalolalolalnloololololiolok 


140 REM 

150 PAPER O 
160 INK 6 
170 BORDER 1 
180 CLS 


190 INPUT “DAME UN MENSAJE 


200 PRINT A$ 


"AS 


210 INPUT "EN QUE COLOR DE PAPEL LO IMPRIMO ";P 
220 INPUT “CON QUE COLOR DE TINTA ";T: 


230 PRINT:PRINT:PRINT 


240 PRINT "ESTOY IMPRIMIENDO EL MENSAJE ";FLASH 1;INK T;PAPER P; 


A$;FLASH O;PAPER O; INK 6;"CON TINTA ";T;" 


Lo último que nos queda por ver del 
SPECTRUM con respecto al color es la inver- 
sión del mismo. Puede haber veces que nece- 
sitemos imprimir mensajes en los que el papel 
tiene que tener el color de la tinta y la tinta el 
del papel. Para hacer esto no tenemos porqué 
tocar las sentencias de cambios de color. Para 
ello podemos hacer uso de la sentencia IN- 
VERSE. Como las dos últimas que hemos visto 
(BRIGHT y FLASH) el argumento que tenemos 
que poner detrás de INVERSE puede tener va- 
lor uno o valor 0. Si ponemos en uno (1) la in- 
versión se hará efectiva. Si ponemos un cero, 
y antes habíamos realizado la inversión con IN- 
VERSE 1, el resultado será que a partir de ese 
momento todo lo que escribamos aparecerá 
de la forma normal. 


Y PAPEL ";P 


Este comando puede encontrarse, al 
igual que todos los que hemos visto anterior- 
mente, dentro y fuera de las sentencias PRINT. 
Para ponerlo dentro de una sentencia PRINT 
hay que seguir la misma regla que hemos vis- 
to anteriormente. 


Si queremos realizar la inversión direc- 
tamente sobre el texto que queremos impri- 
mir, escribiendo el texto ya invertido, sólo te- 
nemos que pulsar, después de las comillas del 
PRINT, las teclas CAPS SHIFT y 2 a la vez. Para 
anular la inversión basta con pulsar las teclas 
CAPS SHIFT y 3 a la vez. 


El programa número 5 nos muestra un 
ejemplo de lo que acabamos de ver. 


100 REM SOS Ill JOIOK 
110 REM * PROGRAMA PARA VER EL EFECTO * 
120 REM * DEL COMANDO INVERSE EN EL  * 


130 REM * SPECTRUM. 


k 


140 REM AdMRSSRSO O aldiolalalO laa dololodok 


150 REM 
160 CLS 


170 PRINT "ESTE TEXTO ESTA NORMAL" 


180 INVERSE 1 


190 PRINT "Y ESTE ESTA INVERTIDO" 


200 INVERSE O 
210 INK O 
220 PAPER 6 


230 PRINT "ESTE TEXTO ESTA NORMAL CON PAPEL AMARILLO Y 


TINTA NEGRA" 
240 INVERSE 1 


250 PRINT "ESTE TEXTO ESTA INVERTIDO CON RESPECTO AL A 
NTERIOR. NO SE HA CAMBIADO NI EL VALOR DEL PAPEL NI DE 


LA TINTA” 
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Ya para terminar con el color en el realiza una demostración de todo lo que he- 
SPECTRUM vamos a ver un programa que nos mos visto. 


100 REM aAsaaidoSOSlSlO lalola laalojalalolalolojolololojok 
110 REM * PROGRAMA DEMOSTRACION xk 
120 REM * SOBRE TODOS LOS COMANDOS x* 
130 REM * DEL COLOR EN EL SPECTRUM x* 
140 REM dddaldaiolaldlelalaldldOloolalalalojojojojololojojok 
150 REM 

160 CLS 

180 DIM A$(8,8) 

190 FOR I=1 TO 8 

200 ' READ A$(1) 

210 NEXT 1 

220 REM 

230 DATA “NEGRO”, "AZUL", "ROJO", "MAGENTA", "VERDE", "CIAN”, "AMARI 
LLO", “BLANCO” 

240 REM 

250 BRIGHT O 

260 LET B$="CERO" 

270 FOR K=1 TO 2 

280 FOR I=0 TO 7 


290 FOR J=0 TO 7 

300 INK J 

310 PAPER P 

320 BORDER J 

330 PRINT "ESTE TEXTO ESTA CON TINTA ";A$(J+1);" Y PAPE 
L ";A$(I); "CON BRILLO ";B$;". EL BORDE ES DE COLOR “;A$(J) 

340 NEXT J 


350 NEXT 1 
360 LET B$="UNO” 
370 BRIGHT 1 
380 NEXT K 1 
390 PAPER 7 
400 INK 1 
410 BRIGHT O 
420 PRINT "ESTE TEXTO ESTA NORMAL Y CON BRILLO CERO" 
430 FLASH 1 
440 PRINT "ESTE TEXTO ESTA CON FLASH Y BRILLO CERO" 
450 BRIGHT 1 
460 FLASH O 
470 PRINT "ESTE TEXTO ESTA NORMAL Y CON BRILLO UNO" 
480 FLASH 1 
490 PRINT "ESTE TEXTO ESTA CON FLAS Y CON BRILLO UNO" 
> 500 FLASH 0 
mil 510 INVERSE 1 
520 PRINT "ESTE TEXTO ESTA INVERTIDO Y CON BRILLO UNO” 
530 BRIGHT O 
540 PRINT "ESTE TEXTO ESTA INVERTIDO Y CON BRILLO CERO” 
550 PAPER 7 
560 INK O 
570 INVERSE 0 
580 PAUSE O 
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IGUIENDO con los progra- 
mas de utilidad que nos per- 
mitirán definir nuestros pro- 
pios caracteres y SPRITES 
sin tener que andar calcu- 
lando y sin tener que utilizar 
ni papel ni lápiz, a continua- 
ción vamos a ver un genera- 
dor de SPRITES para el MSX. Con este progra- 
ma podremos definir SPRITES de 8 x 8 puntos 
o de 16x16 puntos. Podremos visualizarlos 
a tamaño normal o doble, podremos rotarlos, 
invertirlos, guardarlos en casete, leerlos de 
casete y algunas cosas más. 


Al ejecutar el programa, éste nos pre- 
guntará qué tipo de SPRITE queremos definir. 
Se nos presentan dos opciones: 


1000 REM 


1. SPRITES de 8 x 8 puntos. Tamaño de 
un carácter. 

2. SPRITES de 16x16 puntos. Como 
cuatro caracteres. 


Una vez que hayamos pulsado la opción 
elegida nos aparecerá otro pequeño menú. 
Con el que podremos elegir la forma en la que 
queremos ver el SPRITE. Tenemos dos opcio- 
nes: 


1. SPRITES de tamaño natural (en 8 x 8 
ó 16 x 16). 

2. SPRITES ampliados al doble (en 8 x 8 
ó 16 x 16). 


Según pulsemos el 1 o el 2, así nos apa- 
recerá por pantalla el SPRITE durante su defi- 
nición. 


1010 REM As SIOOOIOOIOIOIOOR 
1020 REM * GENERADOR DE SPRITES * 
1030 REM AoSdRSSSSlOlSSlOlOlSjojSlOldlolalokolok 
1040 REM 

1050 SCREEN O 

1060 KEY OFF 

1070 CLEAR 600 

1080 DEF FN I$(C$,P,B)=LEFT$(C$, TP-1)+CHR$(B)+RIGHT$(C$, 32-TP) 
1090 DEF FN C(A,B)=B+16x*INT(A/8)+1 
1100 DEF FN M(A$, 4, B)=ASC(MID$(C$, FNC(A,B))) 
1110 REM 

1120 REM Adol oooO Ok 

1130 REM * OPCION DE SPRITE * 

1140 REM ASoaSaadddo oia laialdlolOoKoK 

1150” REM 

1160 COLOR 11,0,0 

1170 CLS 

1180 LOCATE ,,0 

1190 PRINT" GENERADOR DE SPRITES" 
TAO ARIN MS === == SS id 
1210 PRINT 

1220 PRINT 

1230 PRINT"Escoja tipo de SPRITE:" 
1240 PRINT 
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1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 


PRINT TAB(4);"1 - 8x8 Pixels." 
PRINT TAB(4);"2 - 16x16 Pixels. ” 


GOSUB 2270 , 5 

IF A$=-"1" THEN TA=7:L=TA ELSE TA=31:L=15 
PRINT 

PRINT “Escoja el tamag$o del SPRITE:” 
PRINT 

PRINT TAB(4);"1 - Normal.” 


PRINT TAB(4);"2 - Ampliado.” 
GOSUB 2270 

PRINT 

PRINT 


PRINT " Utiliza las teclas del cursor paramoverte y la barra 


_ paradibujar/borrar un punto. ” 


1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1580 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 

. 1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 


PRINT 

PRINT " Y PULSA UNA TECLA” 
A$=INKEYS 

IF A$="" THEN GOTO 1400 
SCREEN 1, VAL(A$)+1 

REM 

REM oooO lolo IIOIOK 
REM * VARIABLE DONDE ESTA * 
REM *x EL SPRITE xk 
REM oO IASlS MISS joIOIJOIOoIOk 


FOR I=0 TO 31 

C$=C$+CHR$(0) 
NEXT 1 
SPRITE$(0)=C$ 
PUT SPRITE 0, (180,28),15 
SI$=CHR$(219) 
NO$=CHBR$(196) 
CLS 
LOCATE 19,2 A 
PRINT"Sprite:" 
CX=0 
CY=0 
DIM C(31) 
GOSUB 1830 
FC=0 
ON STRIG GOSUB 2020 
STRIG(FC) ON 
ON KEY GOSUB 2720,2350, 3070, 2880, 3650, 3470, 3830, 4430 
FOR G=1 TO 8 

KEY(G) ON 
NEXT G 
GOSUB 4310 
REM 
REM soaSSSISS Ol” VlSlO lol lOlojololojak 
REM * CONTROL DEL CURSOR *x 
REM SoOSIOlOSS SISSI lolSlRlololojojok 
REM 
M=STICK(FC) 
IF M=0 THEN GOTO 1760 
CX=(CX-(M=3)+(M=7) AND-L) 
CY=(CY-(M=5)+(M=1) AND L) 
GOSUB 2170 
GOTO 1760 
REM 
REM RSS SISloldlalo lalalala lojolalolojok ak 
REM * IMPRESION DE LA PARRILA *x 
REM oO alla lol lo lolalolololololalo jojojo 
REM 
LOCATE 0,0,0 
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de espacio 


FOR Y=0 TO TA 
LOCATE 8x*INT(Y/16),Y-16x*INT(Y/16) 
T=128 


T1=ASC(MID$(C$, Y+1)) 
FOR X=0 TO 7 y 
IF (Ti AND T)=T THEN PRINT SI$; ELSE PRINT NO$; 
bed 
NEXT X 
NEXT Y 
SPRITE$(0)=C$ 
BEEP 
GOSUB 2170 
RETURN 
REM 
REM AdOSidolooooK 
REM * TRIGGER x* 
REM ASOMO 
REM 
TP=FNC(CX, CY) 
KO=FNM(C$, CX, CY) 
KO=(KO XOR 2%(7-(CX AND 7))) 
C$=FNI$(C$, TP, KO) 
GOSUB 2150 
SPRITE$(0)=C$ 
RETURN 
REM 
REM ASMSSSSSO SOS iaa jololook 
REM * POSICIONADOR DEL CURSOR * 
REM ARMS SO dok 
REM 
FOR CC=1 TO 40 
NEXT CC. 
LOCATE CX, CY, O 
PA=FNM(C$, CX, CY) 
IF (PA AND 2*(7-(CX AND 7))) THEN PRINT SI$; ELSE PRINT NO$; 
LOCATE CX, CY, 1 
RETURN 
REM 
REM AMOO lalola lolololojok 
REM * ESPERA PULSACION x* 
REM ASS oSSSlSoolSjooldalolodok 
REM 
A$=INKEYS 
IF A$<>"1" AND A$<>"2” THEN 2300 
RETURN 
REM 
REM AMSSSOSSO Odio lololSlolololok 
REM * ROTACION IZQUIERDA * 
REM AMSOSISSS SS lolalolololojok 
REM 
GOSUB 2510 
IF TA=31 THEN 2440 
FOR I=0 TO 7 
C(1)=(C(1)*2 AND 254)+(C(I) AND 128)/128 
NEXT 1 
GOTO 2620 
FOR I=0 TO 15 
T1=(C(I) AND 128)/128:T2=(C(1+16) AND 128)/128 
C(1I)=(C(I)X2 AND 254)+T2:C(1+16)=(C(1+16)*2 AND 254)+T1 
NEXT 1 
GOTO 2620 
REM 
REM ARSS Jok 
REM * PASA LA MATRIZ C$ A * 
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2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2330 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
z980 
je 2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 


REM * LA MATRIZ C PARA EL *x 
REM * CALCULO NUMERICO. k 
NES 
REM 
FOR 1=0 TO 31 
C(1)=ASC(MID$(C$, I+1,1)) 
NEXT I 
RETURN 
REM 
REM daa lolalSlo lolo lolo lolo jalojolok 
REM * SALIDA DE LAS RUTINAS * 
REM * DE ROTACIONES Y ESPEJOS +* 
REM Rada alojado lajalalolojolololor 
REM 
C$="":FOR 1=0 TO 31:C$=C$+CHR$(C(1)):NEXT 
SPRITE$(0)=C$ 
GOSUB 1830 
RETURN 
REM 
REM AMOO llo lolojojololojojor 
REM * ROTACION DERECHA + 
REM NRO ollo lolo dololololok 
REM 
GOSUB 2510 
IF TA=31 THEN 2810 
FOR I=0 TO 7 
C(I)=C(1)/2+128*(C(1) AND 1) 
NEXT I 
GOTO 2620 
FOR 1=0 TO 15 


T1=128x*x(C(1) AND 1): T2=128*(C(1+16) AND 1) 


C(TI)=C(1)/2472:C(1+16)=C(1+16)/2+T1 
NEXT I 
GOTO 2620 
REM 
REM SSdSOIOd lola jolollolojokarok 
REM * ESPEJO VERTICAL * 
REM Rao lolo joke 
REM 
GOSUB 2510 
IF TA=31 THEN 2970 
FOR G=0 TO 3 
SWAP C(G),C(7-G) 
NEXT G 
GOTO 2620 
FOR G=0 TO 7 
SWAP C(G),C(15-G) 
SWAP C(G+16),C(31-G) 
NEXT G 
GOTO 2620 
REM 
REM ARSS ollo llo oiok 
REM * ESPEJO HORIZONTAL * 
REM ARSS SSIOI IO loISJO look 
REM 
GOSUB 2510 
IF TA=31 THEN 3180 
FOR G=0 TO 7 
T1=C(G) 
Cc(G)=0 
FOR I=0 TO 3 
C(G)=C(G)-(27*1)*x((27 (7-1) AND T1)<>0) 
C(G)=C0(G6)-(2*(7-1))x((271 AND T1)<>0) 
NEXT 1 
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3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 


3540. 


3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 


NEXT G 

GOTO 2620 

FOR G=0 TO 15 
T1=C(G) 
T2=C(G+16) 
C(G)=0 
c(G+16)=0 
FOR I=0 70 7 


C(G)=C(G)-(2*1)*((2”(7-1) AND T2)<>0) 
C(G+16)=C(G+16)-(2%(7-1))*((271 AND T1)<>0) 


NEXT I 
NEXT G 
GOTO 2620 
REM 
REM AaooldlojoloK 
REM * LOAD x 
REM dodlololoo 
REM 
GOSUB 3370 
REM 
REM oa lolojolaldloldlolok 
REM * PREPARA INPUT x* 
REM ARSaSOSlOIOlOlololololoRodok 
REM 
POKE S£HF3F9, PEEK(SHF3FB) 
POKE 2:HF3F8, PEEK(SHF3FA) 
LOCATE 23,29 
PRINT STRING$(232,127) 
RETURN 
REM 
REM oooO 
REM * SAVE * 
REM Aaooolotoo 
REM 
GOSUB 3370 
GOSUB 4140 
GOSUB 4230 
PRINT” Y PULSE UNA TECLA"; 
AS$=INKEY3 
IF A$="" THEN 3540 


OPEN “cas: "+N$ FOR OUTPUT AS $1 


FOR G=0 TO TA 
PRINT31, ASC(MID$(C$,G+1,1)) 

NEXT 

CLOSE+1 

GOSUB 4310 

RETURN 

REM 

REM ado 

REM * LOAD x* 

REM ASOMOOOoOoK 

REM 

GOSUB 3370 

GOSUB 4140 

GOSUB 4230 

CS 

OPEN "cas: "+N$ FOR INPUT AS $1 

IF EOF(1) THEN 3770 

INPUT+1, A 

C$=C$+CHR$(A) 

GOTO 3730 

CLOSE+1 

GOSUB 1830 

GOSUB 4310 
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3800 RETURN 
3810 REM ¡ 
3820 REM AMS OMSOIOOlOO OOOO Ojoilololoidlok 
3830 REM * SAVE COMO LINEA DE DATA * 
3840 REM AoaaaalaIOlOlOldlolalololalalalolalololololojÓK 
3850 REM 
3860 GOSUB 3370 
3870 GOSUB 4140 
3880 INPUT "Numero de linea = "¡LI 
3890 GOSUB 4230 
3900 PRINT" Y PULSE UNA TECLA"; 
3910 A$=INKEYS$ 
3920 IF A$="" THEN GOTO 3910 
3930 OPEN "cas: "+N$ FOROUTPUT AS $1 
3940 A$=STR$(LI)+" DATA " 
3950 FOR G=1 TO TA 
3960 AS=A$+"8H"+HEXS(ASC(MID$(C$,G,1)))+"," 
3970 NEXT 
3980 A$=A$+"3%:H"+HEXS$(ASC(MID$(C$, TA+1,1))) 
3990 PRINT+1,A$S 
4000 CLOSE+*1 
4010 GOSUB 3360 
4020 LOCATE 0,17,0 
4030 PRINT "Esta es la linea grabada: " 
4040 PRINT 
4050 PRINT A$ 
4060 PRINT 
4070 PRINT " Y PULSA UNA TECLA" 
4080 A$=INKEYS$ 
4090 IF A$="" THEN GOTO 4080 
4100 GOSUB 4310 
4110 RETURN 
4120 REM 
4130 REM d+aSdSIOIOSlOlSSlOlSlOlOjOlolOK 
4140 REM * PREGUNTA NOMBRE * 
4150 REM AdadadSSiOlO Sido lOojOlOJOjOOK 
4160 REM 
4170 LOCATE 0,17 
4180 INPUT "Nombre”;N$ 
4190 IF N$="" THEN 4170 
4200 RETURN 
4210 REM 
4220 REM SMS OSO ldlaololoiololololololojok 
4230 REM * MENSAJES DE CASSETTE x 
4240 REM ddSOlOalalalololdl]alalalojololalolalokok 
4250 REM 
2 4260 LOCATE 0,22,0 
4270 PRINT" Ponga en marcha el cassette" 
4280 RETURN 
4290 REM 
4300 REM Ad+MXRSSIORIOlSIOIOJDRk 
4310 REM * PRINT MENU x* 
4320 REM adoaaaOoolalajolojoK ok 
4330 REM 
4340 LOCATE 29,23,0 
4350 PRINT STRING$(232,127) 
4360 LOCATE 0,16 
4370 PRINT"Opciones:"” 
4380 PRINT"F1-Rota der.","F5-Load”,"F2-Rota iza. ", "F6-Save norm. ", "F3-Espejo hor 
.F7-Save data. ", "F4-Espejo ver.F8-Stop." 
4390 GOSUB 2150 
4400 RETURN 
4410. REM 
4420 REM OR 
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4430 REM * STOP * 

4440 REM Adol: 

4450 REM 

4460 REM 

4470 SPRITE$(0)=CHR$(0) 
4480 CLS 

4490 SCREEN O 
4500 PRINT 


Si quieres definir otro SPRITE pulsa” 


4510 PRINT "las teclas CTRL y STOP y haz RUN otra" 


4520 PRINT “vez.” 
4530 GOTO 4530 


A continuación nos aparece en la pan- 
talla un mensaje que nos informa de la forma 
de mover el cursor. Para ello sólo tenemos que 
utilizar las teclas del cursor. Para iluminar un 
punto de la parrilla donde definiremos el SPRI- 
TE, sólo tenemos que pulsar la barra espacia- 
dora. Para borrar un punto también tendremos 
que pulsarla. Podemos decir que la barra es- 
paciadora se encarga de cambiar el estado 
del punto sobre el que se encuentra el cursor. 
Si éste está a 1 se pondrá a 0 y si está a O se 
pondrá a 1. , 

A continuación tendremos que pulsar 
una tecla para entrar de lleno en el programa. 
Una vez pulsada se borrará la pantalla y nos 
aparecerá lo siguiente: 


— Una parrilla. En la esquina superior 
izquierda nos aparecerá una parrilla con 8 x 8 
ó 16x 16 puntos dependiendo del tipo de SPRI- 
TE que hayamos elegido al principio del pro- 
grama. Dentro de esta parrilla dibujaremos el 
SPRITE hasta que esté completamente termi- 
nado. 

— La palabra SPRITE en la parte supe- 
rior derecha de la pantalla. Debajo de esta pa- 
labra nos irá apareciendo cómo va quedando 
el SPRITE según lo vamos definiendo. Su tama- 
ño dependerá del tipo de SPRITE (8 x8 6 16 x 16) 
y de si queremos que aparezca con amplia- 
ción o sin ella, 

— En la parte inferior de la pantalla nos 
aparecen los comandos de que disponemos y 
cómo llamarlos. Estos comandos se activan 
pulsando las teclas que van desde la Fl hasta 
la F8. El significado de cada comando es el si- 
guiente: 


— Fl. Nos permite rotar el SPRITE un 
BIT hacia la derecha, El efecto que produce es 
como si se desplazase un punto hacia la dere- 
cha. Si alguna parte del SPRITE desaparece 
por la derecha volverá a aparecer por la iz- 
quierda. 
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— F2. Nos permite rotar el SPRITE'un 
BIT hacia la izquierda. El efecto es el mismo 
que el de Fl, pero el desplazamiento es en la 
dirección contraria. 

— F3. Pulsando esta tecla el SPRITE 
toma la forma que tendría si se estuviese mi- 
rando a un espejo. El efecto resultante es que 
la primera línea del SPRITE pasa a ser la últi- 
ma, la segunda la penúltima, la tercera la an- 
tepenúltima y así sucesivamente, hasta que la 
última pasa a ser la primera. Es como darle la 
vuelta al SPRITE de arriba a abajo pasando por 
su eje horizontal. 

— F4. Con esta tecla realizamos lo mis- 
mo que con F3, pero verticalmente. En este 
caso el eje de giro es vertical y lo que varían 
es la ordenación de las columnas. Así, si dibu- 
jamos un SPRITE con una cara que está miran- 
do a la derecha, pulsando esta tecla, la cara 
mirará hacia la izquierda. 

— F5. Con esta tecla cargamos un SPRI- 
TE que previamente hemos grabado. Como se 
puede apreciar hay dos opciones de graba- 
ción. Para que el programa pueda leer un 
SPRITE definido, desde el casete, tenemos que 
haberlo grabado usando la tecla F6. Ya vere- 
mos un poco más adelante el porqué. 

— F6. Al pulsar esta tecla vamos a gra- 
bar el SPRITE de forma que si en otra ocasión 
queremos modificarlo, pueda ser leído desde 
el programa pulsando la tecla 5. Si grabamos 
el SPRITE pulsando esta tecla los datos que al- 
macenamos no están disponibles por el usua- 
rio. Para que el usuario pueda utilizar el SPRI- 
TE que ha definido tiene que pulsar la tecla F7. 

— F?7. Esta opción nos graba en casete 
el SPRITE que acabamos de definir en forma 
de una línea DATA. De esta forma el usuario 
puede incluirla dentro de sus programas con 
sólo realizar un MERGE del fichero que crea 
el ordenador. El programa nos pide el núme- 
ro de línea que queremos que tenga dicha lí- 
nea DATA y con dicho número de línea nos lo 
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grabará. Tambión imprime dicha línea en la 
pantalla por sl el usuario quiere copiarla a 
mano en vez de grabarla y luego hacer un 
MERGE, El formato en él cual graba esta línea 
el programa no puede ser leído más tarde 
usando la opción F5. Por ello se recomienda 
que, después de haber definido un SPRITE, el 
usuario lo grabe de las dos maneras, pulsan- 
do F6 y F7, 

— F8, Con la tecla F8 terminamos el 
programa y volvemos al BASIC. 


Con el fin de no hacer el programa de- 
masiado largo, éste se ha realizado de forma 
que sólo se pueda definir un SPRITE a la vez. 


Si queremos definir más de un SPRITE, la for- 
ma de hacerlo es la siguiente: 


1, Hacer RUN al programa. 

2. Definir el SPRITE. . 

3. Grabar el SPRITE con la opción P5. 
4, Grabar el SPRITE con la opción F6. 
5. Pulsar la tecla F8. 

6. Pulsar a la vez las teclas CONTROL 


7. Volver al punto número 1. 


A continuación se proponen una serie 
de SPRITES en distintos tamaños para que el 
lector practique un poco. 


Fig. 1. 


Fig. 3. Una nave espacial realizada con un SPRITE de 16 x 16. 


EL TALLER DEL HARDWARE 


E Osciloscopio digital 


N instrumento que sin duda 
representa el sueño de todo 
aficionado al montaje de cir- 
cuitos electrónicos es el os- 
ciloscopio y, más concreta- 
mente, el osciloscopio de 
memoria digital, que permi- 
ta el almacenamiento de for- 

ma permanente de las señales observadas. 
Vamos a presentar un circuito, añadible 
como periférico a un ordenador personal de 
los que se están considerando como ejemplo 
en esta serie, que realiza las funciones de os- 
ciloscopio y que permitirá observar la mayo- 
ría de las señales presentes en nuestros pro- 
yectos. Por supuesto que presentará las limi- 
taciones propias de los circuitos de adquisi- 
ción económica en el mercado nacional, pero 
representará un salto importante en las posi- 
bilidades de nuestro taller, al poder ver las se- 
ñales que hasta ahora intuíamos. En la panta- 
lla de nuestro ordenador, acostumbrada a pre- 
sentar marcianitos y monstruos espaciales, apa- 
recerán las soñadas formas de onda de las se- 


Muestreo /retención 


Selección ganancia 


Selección nivel 


Fig. 1. 


ñales que tantas veces hemos visto en los li- 
bros y revistas. Además de verlas podrerros 
ademas «tratarlas» convenientemente con pro- 
gramas diseñados por nosotros mismos. 

Las características que definen las 
prestaciones de un osciloscopio son: ancho de 
banda de la señal que pueden presentar, ran- 
go de amplitudes de la señal de entrada, nú- 
mero de canales, posibilidades de disparo y 
facilidades de la base de tiempos. Todas ellas 
son importantes en un equipo de uso continua- 
do en el taller y su facilidad de manejo será la 
condición adicional para que se pueda reali- 
zar un trabajo cómodo y útil. En el equipo que 
podemos construir con nuestro OP haremos es- 
pecial énfasis en la descripción de la función, 
para poder adaptar los componentes de que 
dispongamos a la realización propia. 


Los bloques más importantes del osci- 
loscopio son: 


e Amplificador de entrada. 

e Circuito de muestreo y retención. 

e Conversor analógico/digital. 

e Memoria de almacenamiento inter- 
medio. 


Esquema de bloques de un osciloscopio digital. 


EL TALLER DEL HARDWARE 
2 Esquema de bloques 


e Base de tiempos. 

e Circuito de disparo. 

e Interfaz con el ordenador. 
e Panel de mandos. 


El sistema en su conjunto es muy simi- 
lar a los ya descritos para adquisición de da- 
tos analógicos y tratamiento digital de señales 
de audiofrecuencia. Presenta la diferencia 
fundamental en la velocidad de adquisición 
de datos y en la memoria intermedia de alma- 
cenamiento, que resulta imprescindible para 
poder almacenar los datos a la velocidad a 
que los suministra el conversor. Podría reali- 
zarse para alguno de los ordenadores perso- 
nales mediante acceso directo a memoria 


Continua 
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Selección 
ganancia 


(DMA) pero la circuitería resultaría muy espe- 
cífica para cada caso. Con la solución de em- 
plear una memoria externa se independizan 
prácticamente del ordenador. Las funciones de 
adquisición, solamente ligadas al programa 
mediante unos cuantos bits de control. Por otro 
lado el encarecimiento por usar una memoria 
externa resulta sobradamente compensado 
por la mejora de prestaciones. 

Las funciones de presentación de la se- 
ñal y control de los circuitos se harán de for- 
ma en parte programada y en parte manual. 


E Amplificador de entrada 


Es un bloque muy importante de cara a 
la conservación de las características de la se- 


Al 
muestreador 


Fig. 2. Amplificador de entrada. 


ñal de entrada. Debe adaptarse a los niveles 
y frecuencias de las señales a medir, causan- 
do la mínima influencia posible en el circuito 
que se ensaya. La impedancia de entrada del 
amplificador debe ser muy alta, para influir lo 
menos posible en el circuito. En los oscilosco- 
pios normales se obtiene el aumento de la im- 
pedancia de entrada mediante una sonda ate- 
nuadora, que si bien reduce la sensibilidad en 
un factor fijo, generalmente x10, reduce la in- 
fluencia en los circuitos, sobre todo si son de 
alta impedancia. Además puede adaptarse el 
efecto de la capacidad de entrada mediante 
un pequeño condensador variable en paralelo 
con la resistencia de la sonda. 

El circuito de entrada ha de estar muy 
protegido contra cualquier fallo en el circuito 
bajo ensayo y a cualquier manipulación in- 
correcta. Es necesario que no se estropee aun- 
que estando en la escala de máxima sensibili- 
dad le apliquemos la máxima tensión admisi- 
ble. Por supuesto que si nos lo proponemos po- 
demos lograr que hasta el mejor circuito de 
entrada falle, si le aplicamos señales fuera de 
los límites de su especificación. Como estamos 
diseñando un circuito para uso por nosotros 
mismos, deberíamos buscar una protección 
adaptada a nuestra posibilidad de equivoca- 
ción. Se introduce la protección mediante dio- 
dos conectados a las fuentes de alimentación, 
después de la resistencia de entrada. Si la se- 
ñal supera los valores de las tensiones positi- 
va o negativa, se producirá una fuerte caída 
de tensión en la resistencia de entrada pues 
los diodos no permiten que suba por encima 
los niveles de recorte, 

El amplificador de entrada ha de po- 
seer ganancia variable, para poder llevar a los 
niveles apropiados del conversor cualquier 
señal que se nos presente, Se incluyen gene- 
ralmente una parte con ganancia positiva y 
otra con atenuación, para poder observar se- 
ñales de niveles más altos que los de los cir- 
cuitos usuales. Realmente es mucho más fácil 
atenuar que amplificar. 

El control de la ganancia del amplifica- 
dor se realiza manualmente mediante un con- 
mutador rotativo, que ajusta la ganancia en 
saltos, generalmente en la relación 1-2-5-10. 
Podría realizarse todo controlado por progra- 
ma, montando todas las conmutaciones me- 
diante relés, pero para un equipo de bajo cos- 
te no resulta recomendable. En cualquier caso 
es muy fácil sustituir el conmutador rotativo 
del esquema por relés, que realicen la misma 
función y que se conecten a sendos bits del 
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puerto de control. Se puede ajustar la ganan- 
cia mediante una resistencia variable. En su 
posición extrema deberá ser la de ganancia 
calibrada. Hay que poner por separado la re- 
sistencia de ajuste interna para la calibración 
de la de variación de la ganancia, con acceso 
desde el exterior. 

En los osciloscopios de pantalla analó- 
gica se suele calibrar la ganancia en voltios 
por centímetro o por división, si es que la pan- 
talla no está dividida en centímetros, para sa- 
ber rápidamente el valor de la señal observa- 
da, En nuestro caso podremos calibrarlo se- 
gún convenga, teniendo como principal pre- 
ocupación el que la señal una vez amplificáda 
no sobrepase los límites del conversor. Pode- 
mos indicar simplemente en las posiciones del 
conmutador rotativo el factor de ganacia 
correspondiente a cada una, para luego intro- 
ducirlo en el menú que realiza la presentación 
en pantalla. 

El circuito de entrada lleva la posibili- 
dad de desplazar los niveles de las señales de 
alterna para hacerlos compatibles con el con- 
versor, que sólo puede trabajar con señales de 
signo positivo. Esta función puede también ha- 
cerse accesible al panel de mandos, para po- 
der situar la señal manualmente en el nivel 
más adecuado. Se calibrará también en el nú- 
mero de voltios desplazados sobre el valor de 
referencia. 

Se suelen disponer como salidas acce- 
sibles en el panel de mandos varias señales 
de referencia, para calibrar el conjunto de 
sonda y amplificador antes de empezar a tra- 
bajar, si se va a medir con cierta precisión. Las 
señales de referencia pueden ser de continua 
o de alterna. Las señales de continua suelen 
ser un nivel patrón de 1 voltio. La señal de al- 
terna suele ser una onda cuadrada de ampli- 
tud 1 voltio y flancos de subida muy rápidos, 
con lo que se ajusta tanto la ganancia como la 
respuesta en frecuencia de la sonda, Debe 
ajustarse el condensador variable hasta que la 
forma de la onda sea lo más cuadrada posible. 
Si además la frecuencia es generada con os- 
cilador de cuarzo, sirve para calibrar el ba- 
rrido. 


== Circuito de muestreo y retención 


Para que la señal esté en un nivel osta- 
ble al realizar la conversión a digital se inclu- 
ye un circuito de muestreo y retención. La 
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Fig. 3. Circuito de muestreo y retención. 


apertura del muestreo se hace mucho antes 
del comienzo de la conversión, por el circuito 
de control. Un poco antes del inicio de la con- 
versión se realiza el cierre de la muestra y el 
comienzo de la retención. La retención dura 
todo el período de conversión, pudiendo a con- 
tinuación arrancar el comienzo de la nueva 
muestra. 

El valor de la muestra se mantiene en 
un condensador, que alimenta un amplificador 
operacional de ganancia unidad, resultando 
así una salida de baja impedancia y la tensión 
proporcional al'valor alcanzado en el momen- 
to del cierre del conmutador de entrada. 

El conmutador está realizado con un cir- 
cuito de puertas analógicas, que presenta muy 
baja resistencia en estado ON y muy alta im- 
pedancia en estado OFF, 


E Conversor analógico / digital 


El circuito se realiza mediante dos cir- 
cuitos integrados económicos: un conversor 
digital/analógico rápido de tipo DAC0801 y un 
registro de aproximaciones sucesivas, diseña- 
do específicamente para esta función. 
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El conversor digital/analógico, que ya 
fue presentado en los primeros tomos sobre in- 
terfaces analógicas, 'realiza la conversión en 
modo corriente, de los 8 bits de la entrada, se- 
gún los pesos indicados para cada una de 
ellas. Permite el ajuste de la escala de conver- 
sión, mediante el control de la corriente de re- 
ferencia. 

El registro de aproximaciones sucesi- 
vas realiza el proceso digital de la conversión. 
Presenta a las entradas del C D/A el bit de 
mayor peso y si el resultado de la compara- 
ción con la señal de entrada es positivo signi- 
fica que la señal de entrada es superior a la 
de tanteo y por tanto hay que conservar el bit. 
En el período siguiente se tantea con el si- 
guiente bit, dejándolo si el resultado es posi- 
tivo y restaurándolo si el resultado es negati- 
vo. Así por aproximaciones sucesivas se obtie- 
ne al valor digital más parecido al de la señal 
de entrada, con un error menor que el corres- 
pondiente a la mitad del bit de menor peso. 
Al terminar la conversión el circuito da una se- 
ñal indicadora de final, que iniciará el proce- 
so de almacenamiento en la memoria. 

El funcionamiento del circuito requiere 
un pulso de comienzo, pudiendo estar la en- 
trada de reloj permanentemente activada. El 
pulso de comienzo se generará mediante una 
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Fig. 4. Conversor analógico/digital. 


señal derivada del generador de la base de 
tiempos. 

El tiempo de conversión es de algo más 
de un microsegundo. Al final de la conversión 
en el registro de aproximaciones sucesivas 
está el último valor de prueba. Con el pulso 
de fin de conversión se almacena en el regis- 
tro de mantenimiento y se da un pulso de es- 
critura a la memoria intermedia. El pulso se 
genera mediante un monoestable. 


1H Memoria intermedia 
de almacenamiento 


Los valores medidos por el conversor 
están disponibles a la salida del registro de 
aproximaciones sucesivas en el momento de 


producirse la señal de fin de conversión. Un 
registro formado por 8 biestables _se carga 
coincidiendo con el pulso. Simultáneamente se 
inicia un ciclo de escritura en la memoria inter- 
media. 

] La memoria es de tipo estático, 4016 y 
contiene 2K octetos. Con el circuito indicado 
se encuentra permanentemente seleccionada. 
Se inicia un ciclo de escritura al activarse la 
entrada de -WE. Si esta entrada se encuentra 
en nivel alto estará disponible a las salidas in- 
ternas el contenido de la posición selecciona- 
da, de forma permanente, a partir del tiempo 
de acceso, es decir, no necesita pulso de lec- 
tura. Para poder leer el contenido en el exte- 
rior es necesario activar el control de salida 
-QE. 

La utilización de la memoria es casi 
como de doble puerta, pues se escribe desde 
un circuito y se lee por otro. Para facilitar el 
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direccionamiento en las dos fases de funcio- 
namiento se incluye en el circuito un contador 
de direcciones que se emplea en ambos ca- 
sos. La diferencia es que el avance de posi- 
ción en un caso se hace mediante la señal de 
fin de conversión y en la otra a través de pro- 
grama, para transferir elicontenido de las 'me- 
didas a la memoria principal. 

El contador de direcciones se puede 
poner a cero mediante la activación de la se- 
ñal de Borrado desde la interfaz. Normalmen- 
te se pondrá a cero el contador cada vez que 
se vaya a comenzar una medida o leer el con- 
tenido de la memoria. 


Base de tiempos 


La medida precisa de las señales re- 
quiere la toma de las muestras en instantes 
perfectamente definidos y repetibles. Se ob- 
tiene una secuencia de repetición de pulsos 


de medida mediante un oscilador controlado 
por cuarzo y una serie de divisores. Un con- 
mutador rotativo o un multiplexor permite se- 
leccionar la frecuencia de repetición apro- 
piada. 

Para simplificar la generación de la fre- 
cuencia de muestreo se utilizan circuitos divi- 
"sores por 10, que internamente se descompo- 
nen en divisor por 2 y divisor por 5. Con el es- 
quema presentado se obtienen los intervalos 
entre muestras que se indican en cada posi- 
ción. En la parte baja los saltos son 2-4-10, 
mientras que en la parte alta son 2-10. Pueden 
conseguirse otros períodos de muestreo, utili- 
zando la misma técnica, pero deberá obser- 
varse que sean períodos iguales. 

La base de tiempos estable se corres- 

- ponde con la señal en diente de sierra utiliza- 
da en los osciloscopios ordinarios para hacer 
corresponder el desplazamiento en horizontal 
con el tiempo. En nuestro caso los incremen- 
tos de tiempo uniformes se consiguen con el 
oscilador estable y los divisores. 
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Fig. 6. Circuito generador de la base de tiempos. 


El número de medidas efectuadas en 
cada barrido podríamos limitarlo por progra- 
ma, llevando la cuenta del número de pulsos 
producidos. Lo más conveniente es. efectuar 
un barrido completo cada vez, llenando la me- 
moria intermedia y luego presentar en panta- 
lla en sucesivas pasadas la información alma- 
cenada. El disponer de un número grande de 
muestras permite una gran flexibilidad para 
poder determinar problemas cuya relación 
causa-efecto está separada por un largo inter- 
valo de tiempo. 

El intervalo mínimo entre muestras, 
correspondiente a la frecuencia máxima de 
repetición de pulsos de 500 KHz, es de 2 mi- 
crosegundos. Con esta velocidad de muestreo 
se pueden observar señales cuyo armónico 
superior sea inferior a 250 KHz. El ancho de 
banda por tanto es menor que el de la mayo- 
ría de los osciloscopios analógicos corrientes. 
Para aumentar el ancho de banda efectivo con 
señales repetitivas se recurre a un artificio 
muy interesante, consistente en disparar el 
barrido siempre en el mismo instante pero 
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realizar la toma de muestras con un ligero des- 
plazamiento en cada pasada. Con esto se con- 
sigue componer la envolvente de la señal me- 
diante puntos a lo largo del período de la se- 
ñal. 

Para señales de muy baja frecuencia el 
disparo del conversor podría realizarse por 
programa, sin necesidad de almacenar el va- 
lor leído en la memoria intermedia. 


Y Circuito de disparo 


El comienzo de la toma de muestras es 
de suma importancia en un circuito de medi- 
da. Según el problema a observar se presen- 
tan muy diferentes situaciones sobre cuál con- 
viene que sea la condición que define el ins- 
tante más oportuno de disparo para observar 
la señal un cierto tiempo antes y después del 
fenómeno que origina el disparo. Utilizando 
osciloscopio de tipo analógico es normal el ir 
tanteando diferentes frecuencias de barrido y 
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Fig. 7. Circuito de disparo. 


condiciones de disparo hasta obtener una ima- 
gen estable. Con un osciloscopio digital este 
problema no se presenta así. La señal siempre 
se obtiene estable, pero puede que esté muy 
«lejos» en el tiempo del fenómeno que intere- 
sa observar. Es necesario condicionar median- 
te algún circuito adicional el comienzo del 
barrido y, por tanto, del almacenamiento de la 
señal. 

Como condiciones mínimas de comien- 
zo de barrido deberemos disponer de: nivel, 
subida o bajada y disparada desde el teclado, 
para fenómenos asociados a un suceso exter- 
no. 

El problema es bien diferente en nues- 
tro caso que en un osciloscopio ordinario, pues 
en éste debe producirse una señal repetitiva 
paía que por persistencia de las imágenes en 
la pantalla se puede mantener la forma de 
onda. El osciloscopio digital resulta similar al 
trabajo en forma de un solo disparo, pues una 
vez producida la condición de inicio se efec- 
túa la toma de datos y su almacenamiento en 
la memoria intermedia. No se necesita que la 
señal se repita para ser observada cómoda- 
mente. Sin embargo, deberemos poder iden- 
tificar el fenómeno con alguna señal de refe- 
rencia. Para poder hacer comparaciones en el 
osciloscopio ordinario de dos canales se rea- 
liza un muestreo de las señales observadas, 
para que haya correspondencia en el tiempo. 
Si las señales son repetitivas, parecerá que se 
producen simultáneamente, aunque en reali- 


dad son presentadas de forma alternativa. En 
el osciloscopio de memoria la corresponden- 
cia deberá conseguirse por disparo del barri- 
do con una señal de referencia externa igual 
en las diferentes circunstancias a comparar. 
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== Interfaz de conexión al ordenador 
personal 


Como en otros ejemplos anteriores co- 
nectaremos el nuevo equipo a través de la tar- 
jeta de ampliación de puertos de entrada/sa- 
lida. Se necesita un puerto de salida para las 
funciones de control y dos puertos de entrada 
para la lectura del contenido de la memoria 
externa y las señales de estado del circuito ex- 
terno. 


Montaje práctico 


El osciloscopio debe ser una herramien- 
ta fácil y cómoda de usar por lo que debemos 
dedicar gran cuidado al diseño de la coloca- 
ción de los mandos y las conexiones externas. 
Sobre una chapa de aluminio se colocarán los 
conmutadores rotativos, rotulando las posicio- 
nes con los valores que introducen en el sis- 
tema. Igualmente las resistencias variables de 
ajuste se actuarán mediante botones de man- 
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Fig. 8. Interfaz al ordenador personal. 
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do con índice y dial de los valores que ajusta. nes para realizar las medidas en flotante, 
Se marcarán especialmente las posiciones de como ya se indicó en el empleo de amplifica- 
calibración. dores operacionales de instrumentación. 

Las conexiones de las sondas y de las 
entradas de sincronización externa suelen ha- 
cerse mediante conectores BNC hembra. Para 


una aplicación de prueba hay conectores más Ez Conclusión 
económicos que pueden cumplir perfecta- 
mente, como los de tipo RCA empleados para El disponer de un ordenador personal 


las conexiones de audiofrecuencia. Es funda- detrás del sistema de adquisición de los datos 
mental la correcta conexión de la masa de re-— permite muchas variaciones en la forma de 
ferencia. Si se adquieren sondas comerciales utilización. Una vez adquirida la señal, puede 
tendremos que poner los conectores BNC, presentarse de diferentes formas en la panta- 
pues prácticamente todas las que se venden lla del ordenador: tal cual salió, amplificada, 
presentan este tipo de conector. atenuada, filtrada, ampliada en el tiempo, para 

Una precaución importante a tener en observación de fenómenos de corta duración, 
cuenta en los ensayos es la posibilidad de que etcétera. Lo que resulta más interesante es 
la masa del sistema que vamos a medir pre- que podemos presentarla transformada me- 
sente tensión, o que incluso está conectada a diante operaciones programables y que resal- 
uno de los hilos de la red de alimentación. Si ten aspectos de interés. En el tomo anterior se 
éste es el caso deberemos tomar precaucio- mostró la posibilidad de conocer el contenido 
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frecuencial de una muestra, mediante la trans- 
formada rápida de Fourier. Podemos utilizar 
las funciones programadas para presentar los 
resultados de la transformación, junto con la 
forma de onda de la señal original. 

Si disponemos de impresora resulta 
muy sencillo obtener una copia impresa de la 
señal capturada. Podemos utilizar la copia de 
la pantalla sobre la impresora o utilizando un 
programa un poco más elaborado explotar las 
posibilidades gráficas de la impresora para 
obtener una verdadera gráfica como si de un 
trazador de curvas se tratase. 

Otro aspecto no menos interesante es la 
posibilidad de comparar las señales recién to- 
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madas con otras almacenadas previamente. La 
comparación puede hacerse de forma manual, 
cotejando las representaciones gráficas de las 
dos señales, pero disponiendo de ordenador, 
la comparación se realiza mucho más cómoda- 
mente por programa. La diferencia puede 
cuantificarse y conocerse en qué instante se 
produce la diferencia. 

En el tomo próximo presentaremos los 
programas de captura de señales, de control 
de la interfaz y de presentación de los resul- 
tados. Se podrá observar la potencia y efica- 
cia de la interfaz diseñada y las posibilidades 
que tenemos de medida y análisis de las se- 
ñales generadas en nuestro taller. 


APRENDER CON EL ORDENADOR 7 


NATURALEZA 
Y TECNOLOGIA 


Clasificación de los seres vivos 


UE ya en el siglo XVII cuan- 
do se hizo la primera clasifi- 
cación de seres vivos; y fue 
Linneo, un científico sueco, 
el primer hombre que hizo 
una clasificación de este 
tipo. También fue el que in- 
trodujo el concepto de espe- 
cie, definiéndolo como aquel individuo que se 
adapta a las características de: 


— Semejanza. 
— Procedencia. 


La ciencia que se encarga de estos es- 
tudios es la Taxonomía, que es la rama más an- 
tigua de las Ciencias Naturales y, aunque sea 
la que más lentamente evoluciona, es también 
la base y pilar de muchas otras ramas. Hoy en 
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SCREEN 1 
REM 
REM 
REM 
REM 
REM 
REM 
CLs 
GOSUB 2170 
PRINT :¿PRINT 
PRINT ” 
PRINT ” 
PRINT:PRINT 
PRINT * 
PRINT:PRINT 
PRINT * 
PRINT:PRINT 
PRINT * 
PRINT:PRINT 
PRINT * 
PRINT:PRINT 
PRINT * 
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día se siguen haciendo investigaciones rela- 
cionadas con esta ciencia. 

Tanto así que en nuestros días hay di- 
ferenciaciones que no han podido determinar- 
se muy claramente, y son ciencias como la Bio- 
química y la Genética las que se encargan de 
estos estudios. 

Durante mucho tiempo, la base de la 
clasificación de seres vivos fue la división que 
se hacía entre Reino Animal y Reino Vegetal; 
pero el descubrimiento de los microbios plan- 
teó nuevos problemas y así, a principios del si- 
glo XX, Haeckel crea un nuevo reino llamado 
de los Protistas. 

Pero a medida que la ciencia avanza se 
observa que este reino es insuficiente, y en los 
años 50, son Copeland y Whittaker quienes in- 
troducen un nuevo reino, el de las Moneras. 
Así pues, la clasificación actual queda dividi- 
da en cuatro reinos que son los que nos desig- 
na el programa en su menú principal, llama- 
dos Moneras, Protistas, Metafitas y Metazoos. 
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LET X1=200:LET X2=80:LET Di=230:LET Vi=210:G0SUB 2140 
PRINT:*RINT 

INPUT " OPCION ELEGIDA: ";A 
IF A=5 THEN END 

1F A<X<1 OR A>4 THEN GOTO 80 
ON A GOSUB 400,800,1200,1600 
CLS:GOSUB 2170 

PRINT:PRINT 

PRINT * 

PRINT " 

PRINT:PRINT:PRINT 

PRINT * 

PRINT:PRINT:PRINT 

PRINT * 2 > ÁLGAS CIANOFICEAS” 
LET X1=200:LET X2=S0:LET Di=250:LET Vi=140:G0SUB 2140 
GOSUB 2210 ¿ 

GOTO 80 

CLS:GOSUB 2170 

PRINT:PRINT 


1 ) BACTERIAS" 


PRINT * REINO PROTISTA” 
RUSA ea A O II A A ON AS Em » 
PRINT:¿PRINT:PRINT 

PRINT * 1 >) PROTOZOOS" 
PRINT:PRINT:PRINT 

PRINT * 2 ) ALGAS NO CIANOFICEAS” 
PRINT:¿PRINT:PRINT 

PRINT * 3 > HONGOS" 


LET X1=200:LET X2=80:LET Di=300:LET Vi1=175:G0SUB 2140 
GOSUB 2210 
GOTO 80 

CLS:GOSUB 2170 
PRINT:PRINT 

PRINT * 

PRINT * 
PRINT:PRINT:PRINT 
PRINT * 
PRINT:PRINT:PRINT 
PRINT * 2 >) INVERTEBRADOS” 
LET X1=200:LET X2=80:LET Di=250:LET Vi=140:GOSUB 2140 
GOSUB 2190 

IF B<>1 AND B<>2 AND B<>0 THEN GOTO 1200 

IF B=0 THEN GOTO 80 
IF B=1 THEN GOTO 1730 
GOTO 1920 

CLS:GOSUB 2170 
PRINT:PRINT 

PRINT * 

PRINT " 
PRINT:PRINT:PRINT 
PRINT ” 
PRINT:PRINT:PRINT 
PRINT * 
PRINT:PRINT:PRINT 
PRINT " 3) ESPERMAFITAS" 
LET X1=200:LET X2=80:LET Di=225:LET V1=175:GOSUB 2140 
GO0SUB 2210 
GOTO 80 
CLS:GOSUB 2170 
PRINT:PRINT 
PRINT * 

PRINT ” 
PRINT:¿PRINT 
PRINT * 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT * 

GOSUB 2210 
GOTO 1200 
CLS:GOSUB 2170 
PRINT:PRINT 
PRINT * 

PRINT " 

PRINT 


1 >) VERTEBRADOS" 


1 >)  BRIOFITAS" 


2 >) PTERIDOFITAS" 


xx VERTEBRADOS xx 


PECES" 
ANFIBIOS” 
REPTILES" 

AVES" 


MAMIFEROS" 


40 


"NT VA PENTT A > Ny E > ES ve SE UU +=. FIL TAPA RAFA INNATA 

E A IS E IA Ll GRS o AITOR RA 0] 

1970 PRINT * X*x* INVERTEBRADOS xx" 

A Z 

1990 PRINT 

2000 PRINT * ARTROPODOS”" 

2010 PRINT * =Crustaceos” 

2020 PRINT " =Insectos" 

2030 PRINT " =Aracnidos" 

2040 PRINT ” —Miriapodos" 

2050 PRINT ” CELENTEREOS” 

2060 PRINT " ESPONGIARIOS" 

2070 PRINT * ANELIDOS" 

2080 PRINT * PLATELMINTOS" 

2090 PRINT ” NEMATELMINTOS" 

2100 PRINT " MOLUSCOS" 

2110 PRINT * EQUINOLERMOS” 

2120 GOSUB 2210 

2130 GOTO 1200 

2140 PSET (X1,X2):LINE -STEPCD1,0)> 

150 LINE —-STEPX0,V1)>:LINE —STEPC-D1,0):LINE —STEPCO,-V1)> 

2160 RETURN . 

2170 PRINT " x*x CLASIFICACION DE Los SERES, 

IVOS xx" 

2180 RETURN 

2190 LOCATE 23,1: INPUT " OPCION ELEGIDA «0 PARA VOLVER AL MENU PRINCIPAL>:";B 

2200 RETURN . 


RETURN 


Modificaciones para otros equipos 


El programa es válido para IBM PC, 
aunque se puede ejecutar en cualquier orde- 
nador de los que tratamos habitualmente, omi- 
tiendo la subrutina que recuadra los esque- 
mas. De todas maneras existen algunas otras 
modificaciones que a continuación detallamos. 


ZX-SPECTRUM: 


Eliminar líneas 10, 230, 480, 900, 1280, 
1700, 2140, 2150, 2160. 


280 GOSUB 400'A 
260 IF A=5 THEN GOTO 9999 
2190 INPUT "OPCION ELEGIDA (O PARA 
VOLVER AL MENU PRINCIPAL);B 
2210 PRINT AT 21,0;'PULSE CUALQUIER TE- 
CLA PARA CONTINUAR” 


COMMODORE: 


Cambiar CLS por PRINT CHR$(47) en 
líneas 80, 400, 800, 1200, 1600, 1730, 1920. 

Eliminar líneas 10, 230, 480, 900, 1280, 
1700, 2140, 2150, 2160. 

Simular LOCATE con la subrutina grá- 
fica de COMMODORE del tomo 1 de esta obra. 


AMSTRAD: 


Eliminar líneas 10, 230, 480, 900, 1280, 
1700, 2140, 2150, 2160. 
Sustituir LOCATE X, Y por LOCATE Y,X. 
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LOCATE 23,1:PRINT "PULSE CUALQUIER TECLA PARA CONTINUAR" 
LET Z$=INKEY$:1F Z$="" THEN GOTO 2220 


MSX: 


Las mismas modificaciones que para 
AMSTRAD. 


MATEMATICAS 


2 Razones trigonométricas 


La Trigonometría, como la Geometría y 
la Astronomía es una de las viejas herencias 
recibidas del mundo griego, cultivadas más 
tarde por los hindúes y los árabes que la fue- 
ron enriqueciendo con sus investigaciones. 

El objeto de la Trigonometría está en 
buscar una relación entre los lados y los án- 
gulos de un triángulo; y esta relación viene 
dada por las llamadas «RAZONES TRIGONO- 
METRICAS». 

Con este programa se hace una repre- 
sentación gráfica de estas razones trigonomé- 
tricas fundamentales, que son: seno, coseno y 
tangente de un cierto ángulo; junto con sus in- 
versas;, cosecante, secante y cotangente, res- 
pectivamente. Estas quedan representadas y 
definidas en el conjunto de ángulos de un pla- 
no formado en la llamada circunferencia go- 
niométrica cuyo radio vale la unidad, 

El concepto de estas razones trigono- 
métricas ayuda a deducir a partir de ellas nu- 
merosas fórmulas, y a la vez numerosas apli- 


APRENDER CON El ORDENADOR TIT 


caciones que facilitan la resolución de diver- 
sos problemas ya no sólo en el ámbito de la 
Matemática, sino extendiéndose también al 
campo de la Física. 

En el siguiente programa, en primer lu- 
gar, se nos pide el valor del ángulo en grados 
sexagesimales. Este ángulo no deberá exce- 
der el valor de 360 grados, es decir, el recorri- 
do completo a la circunferencia goniométrica. 


10 SCREEN 1 

20 REM AXEXAXELELEERER LAR ERE ERA 
30 REM xx%e RAZONES TRIGONOMETRICAS xx 
90 REM ree MH IM II 
50 PI=3.1415928H$ 

60 REM 203626 H 3036 HH AR 
70 REM x*x* INSTRUCCIONES *x 
80 REM ARAHAL RAI 
90 CLS 

100 PRINT * 

110 PRINT " 

120 PRINT:PRINT:PRINT:PRINT:PRINT 


y IRET 


Una vez introducido el ángulo irán apa- 
reciendo sucesivas pantallas en las que se re- 
presentan las razones trigonométricas y su va- 
lor numérico. La representación de estas ra- 
zones se hará mediante línea discontinua, en 
el caso de que el programa se ejecute en un 
ordenador IBM PC o compatible. En el resto 
de los ordenadores la razón trigonométrica 
aparecerá como una línea coloreada. 


00D NA OS DEL Es ETIARADIESAS 


130 PRINT TAB(B) 3" HAHAHA LEAR RR RARA RR 


140 PRINT TAB(8>;"x ESTE PROGRAMA DIBUJA LAS RAZONES TRIGONOMETRICAS *" 
150 PRINT TAB(8)>;"x* e 
160 PRINT TAB(8);*"x DEL ANGULO QUE INTRODUZCAS * 


170 PRINT TAB(S)>3" AAA AA KA AAA ERAN 


180 PRINT:PRINT:PRINT 


190 PRINT TABC18>;"x* PULSA UNA TECLA PARA COMENZAR x*" 


200 LET A$=INKEY$:1F A$="" THEN GOTO 200 
210 CLS 


220 INPUT "INTRODUZCA EL VALOR DEL ANGULO Xen grados):";A 


1230 1F ABS(A>>360 THEN GOTO 210 


,240 REM HAIR 
250 REM ** CALCULO DEL ANGULO EN RADIANES x*x 
260 REM HXHEXHHRA LEAR ERAN 


270 LET B=A*2x*P1/360 

400 REM AHHH LR 

410 REM ** DIBUJO DEL SENO *x* 

420 REM HXXARHXALARAL AENA 

430 CLS 

440 PRINT * *.S E N 0 
450 LET X1=350:LET X2=151:LET R=67 

460 GOSUB 2000 


D E 


GRADO Se 


"aj" 


470 LINE <X1+RXxCOS(B),X2)>-(X1+RXCOS(B) X2-RXASINCB)), , ,H9249 
480 LOCATE 18,22:PRINT "SENO DE ";Az3" GRADOS ="¿SIN(B) 


490 GOSUB 4000. 

500 REM AKAL RRA 
510 REM *x* DIBUJO DEL COSENO *x*e 
520 REM AHI 


530 CLS 
540 PRINT * e 6 O) S! CE NN AD 
pre 

a 550 LET X1=350:LET X2=151:LET R=67 


560 GOSUB 2000 


D E Ay: GRÁDO S* 


570 LINE (X1+R*COS(B) ,X2)>-£X1+RXCOSCB) ,X2-RXSINC(B)) 
580 LINE (X1+RXCOS(B)>,X2-RXSIN(B))>)-(X1,X2-RXSINCB)),, ,£H9249 
590 LOCATE 18,22:PRINT "COSENO DE ";A;" GRADOS =";COS(B> 


600 GOSUB 4000 

700 REM AXHHARELA LANE AA RR 
710 REM ** DIBUJO DE LA TANGENTE Xx 
720 REM EXAMEN ARAN EA 
730 CLS 

740 PRINT *" 
D S xx" 


*x TA N 6 


EXNNITAE 


D OE aj" GRAD 


7530 IF ABS(A)=90 OR ABS(A)=270 THEN LET X1=350:LET X2=151:LET R=687:G0OTO 820 


760 GOSUB 2500 


770 GOSUB 2000 
780 LINE (X1,X2)-(X1+R,X2-RETANCB) > 


790 LINE (X1+R,X2)-(X1+R,X2-RXTANIB))>,, 84 H9249 
800 LOCATE 18,22:PRINT "TANGENTE DE ";¿ Az" GRADOS =";TAN(B> 


s10 GOTO 890 

820 GOSUB 2000 

830 IF A=-90 OR A=270 THEN GOTO 870 

840 LINE <X1+R,X2)-(X1+R,X2-67),,,8H9249 


850 LOCATE 18,22:PRINT "TANGENTE DE "¡A;" GRADOS =INFINITO" 
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860 


GOTO 890 


870 LINE (X1+R,X2>-(X1+R,X2+67),, ,£H9249 

880 LOCATE 18,22:PRINT "TANGENTE DE *;A;" GRADOS =-INFINITO" 

890 GOSUB 4000 

A 

910 REM x** DIBUJO DE LA COTANGENTE *x 

920 REM rss dde 0 26 2 36 DE DE ME IM II MIE 

930 CLS 

940 PRINT * *r*C 0 TANSGENTOE D E *343* GRAOD 
O S x.* 

950 IF A=0 OR ABS(A>=180 OR ABS(A)>=360 THEN LET X1=350:LET X2=151:LET R=847:GOTO 

1040 

960 IF ABS(A>)=270 OR ABS(A)=90 THEN LET C=0:GOTO 980 

970 LET C=1/TANCB> 

980 GOSUB 3000 

990 GOSUB 2000 

1000 LINE (X1,X2)-(X1+Rx*C,X2-R) 

1010 LINE (X1,X2-R>-(X1+R*C,X2-R),, ,8H9249 

1020 LOCATE 18,22:PRINT "COTANGENTE DE ";A;" GRADOS ="¿C 

1030 GOTO 1110 

1040 GOSUB 2000 y 

1050 IF ABS(A>=180 THEN GOTO 1090 

1060 LINE (X1,X2-R>-(X1+120,X2-R),, ,4H?9249 

1070 LOCATE 18,22:PRINT "COTANGENTE DE ";A;" GRADOS =INFINITO" 

1080 GOTO 1110 

1090 LINE (X1,X2-R>-(X1-120,X2-R),, ,84H9249 

1100 LOCATE 18,22:PRINT "COTANGENTE DE "“;A;" GRADOS =-INFINITO" 

1110 GOSUB 4000 

1200 REM RELAX IRA RR 

1210 REM x** DIBUJO DE LA SECANTE *x 

1220 REM AHHH RR RR 

1230 CLS 

1240 PRINT " *eS E CA.NT.E D E "53" GR: A11D/10 
S xx" 

1250 IF ABS(A)=90 OR ABS(A)=270 THEN LET X1=350:LET X2=151:LET R=87:GOTO 1320 

1260 GOSUB 2500  ' 

1270 GOSUB 2000 

1280 LINE <(X1+R,X2)-(X1+R,X2-RETANCB))> 

1290 LINE (X1,X2)-(X1+R,X2-RXTAN(B)),, ,¿H9249 

1300 LOCATE 18,22:PRINT "SECANTE DE ";A;" GRADOS =";1/C0S(B> 

1310 GOTO 1390 

1320 GOSUB 2000 

1330 IF A=-90 OR A=270 THEN GOTO 1370 

1340 LINE (X1,X2)-(X1 ,X2-80),,,6«H9249 

1350 LOCATE 18,22:PRINT "SECANTE DE ";A;" GRADOS =INFINITO" 

1360 GOTO 1390 

1370 LINE (X1,X2>-(X1,X2+80),, ,8H9249 

1380 LOCATE 18,22:PRINT "SECANTE DE ";A;" GRADOS =-INFINITO" 

1390 GOSUB 4000 

1400 REM XXXL ELLE ELE EEE RR 

1419 REM xx DIBUJO DE LA COSECANTE ** 

1420 REM AXELEXHKHAA RAEE LEE AA ERRE 

1430 CLS 

1440 PRINT * *8.C0C)100S1)E'C0:A NTE DE "393" GRAÁAD 
0 S xx" 0 

1450 IF A=0 OR ABS(A)=180 OR ABS(A)=360 THEN LET X1=350:LET X2=151:LET R=47:G0TO 
1540 

1460 IF ABS(A>=270 OR ABS(A)=90 THEN LET C=0:GOTO 1480 

1470 LET C=1/TANCB) 

1480 GOSUB 3000 

1490 GOSUB 2000 

1500 LINE (X1,X2-R>-(X1+R*C,X2-R)> 

1510 LINE (X1,X2)-(X1+R*C,X2-R),, ,6H?9249 

1520 LOCATE 18,22:PRINT "COSECANTE DE ";¡ Aj" GRADOS =";1/SINC(B> 

1530 GOTO 5000 

1540 GOSUB 2000 

1550 IF ABS(A>=180 THEN GOTO 1590 

1560 LINE (X1,X2)-(X1+120,X2),,,6H9249 

1570 LOCATE 18,22:PRINT "COSECANTE DE ";A;" GRADOS =INFINITO" 

1580 GOTO 5000 

1590 LINE (X1,X2)-(X1-120,X2),, ,%H9249 

1600 LOCATE 18,22:PRINT "“COSECANTE DE ";A;" GRADOS =-INFINITO" 

1610 GOTO 5000 

2000 REM 30d 16 06 36 2 30 0 166 DH DMI III IR 

2010 REM ** DIBUJO DE LA CIRCUNFERENCIA x*x* 

2020 REM III II RR IRA 

2030 CIRCLE (X1,X2>,R,»,,,1 

2040 CIRCLE (X1,X2),R/5,,0,B,1 

2050 LINE (X1-R,X2)-(X1+R,X2> 

2060 LINE <(X1 ,X2+R)>-(X1 ,X2-R)> 
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2070 
2080 
2500 
2510 
2520 
2530 
D A>180> THEN LET I=1:GOTO 2550 
LET 1=2 

LET R=135/(1+ABS(TAN(B))) 
IF R>67 THEN R=67 

LET X1=350 

IF I=1 THEN X2=152-R 


RETURN 

REM 406 6 IE O III 
REM *x* AJUSTE CIRCUNFERENCIA 1 Xx 
REM ERRE ARA LENA A EAN 


1F 1=2 THEN X2=24+R 

RETURN 

REM RI RAR RAR 
REM x*x* AJUSTE CIRCUNFERENCIA 2 Xx 
REM XRAHKALEREREN EA RAR 
3030 
D A>180> THEN LET 1=1:G0TO 3050 
3040 LET 1=2 

3050 LET R=300/(1+ABSC1/TANCB))> 
3060 IF R>67 THEN R=67 

3070. LET X2=151 

3080 IF I=1 THEN X1=200+R 

3090 1F I=2 THEN X1=400-—R 

3100 RETURN 

4000 
4010 
4020 
4030 
39040 
4050 
5000 
5010 
5020 
5030 
5040 
5050 
5060 


RETURN 

REM ARA RRA RARA 
REM **% FINAL DEL PROGRAMA *x 
REM AXHHAXHA HELL LANA 


IF We="S" 
END 


OR W$="s" THEN GOTO 210 


Modificaciones para otros equipos 


El programa es válido para el ordena- 
dor IBM PC. Para el resto de las modificacio- 
nes son las siguientes: 


ZX-SPECTRUM: 


Suprimir línea 10. 
Suprimit línea 50. 


Sustituir todas las sentencias gráficas 
de la forma: 


LINE (X,Y)-(X+A,Y+B) 
por: 
PLOT X,Y:DRAW A,-B 


Sustituir todas las sentencias gráficas 
de la forma: 


LINE (X,N)-(X+A,Y+B),,,8H9249 
por 
PLOT X, Y:DRAW INK 2;A,-B 
Sustituir las sentencias del tipo: 
LOCATE X, Y:PRINT “...” 


LINE (X1,X2)-<X1+R*COS(B) ,X2-RXSINCB) > 


REM AXHLERERALEL ALEA AA ERE RANA 
REM xx* FINAL RAZON TRIGONOMETRICA ** 
REM HI RR RRA RAR 
LOCATE 20,10:PRINT "* PULSE UNA TECLA 


LET Z$=INKEYS$:1F Z$="" THEN GOTO 4040 


LOCATE 20,17:PRINT "*x PARA INTRODUCIR 
LET W$=INKEY$:1F W$="" THEN GOTO 5040 
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AAA WETHZ TE INR 
LS IA 


IF (A<-270 AND A>-360) OR (AX-90 AND A>-180) OR (AO AND AX?0) OR C(AX270 AN 


IF (A<-270 AND A>-360) OR (A<-90 AND A>-180) OR (A>0 AND A<X?0) OR cA<270 AN 


PARA SIGUIENTE RAZON TRIGONOMETRICA * 


OTRO ANGULO PULSE S x*" 


4 


por: 
PRINTATOS Vias 


2030 CIRCLE X1,X2,R 

2040 PLOT X1+R/5,X2:DRAW (X1+R'"COS 
B)/5,(X2+R"SIN B)/5,B 

2570 LET X1=128 

2580 IF I=1 THEN LET X2=24+R 

2590 IP I=2 THEN LET X2=159-R 

3070 LET X2=91 

3080 IF I=1 THEN LET X1=R 

3090 IF I=2 THEN LET X1=255-R 

5060 GOTO 9999 


En las línes 450, 550, 750, 950, 1250, 1450 
las variables X1, X2 y R tendrán como valores: 


Xl=128  X2=91  R=67 
COMMODORE: 


Suprimir la línea 10, 

Sustituir CLS por PRINT CHR$(147) en 
líneas 90, 210, 430, 530, 730, 1230, 1430. 

Simular los gráficos con subrutina grá- 
fica especificada en el tomo 1 de esta obra. 

Sustituir LOCATE X,Y:PRINT '..” por 
POKE 1024+Y+40*X: PRINT *..” en las líneas 
correspondientes. 


AMSTRAD: 


10 MODE 1 

Sustituir LOCATE X,Y:PRINT “...” por 
LOCATE Y,X:PRINT "...” en líneas correspon- 
dientes, 

Sustituir LINE (X,Y)-(X+A,Y+B) por 
PLOT X, Y:DRAWR A,-B en líneas correspon- 
dientes. 

Sustituir LINE (X,Y)-(X+A,Y+B),,, 
$H9249 por PLOT X, Y:DRAWR A,-B,6 en lí- 
neas correspondientes. 


Sustituir CLS por CLG en líneas 90, 210, 
430, 530, 730, 930, 1230, 1430. 


2030 ORIGIN X1,X2 

2031 MOVE R,0 

2032 FOR I=0 TO 2*PI STEP Pl/180 
2033 DRAW R*COS(D, R*SIN(D 
2034 NEXT 1 

2040 ORIGIN X1,X2 

2041 MOVE R/8,0 

2042 FOR I=0 TO B STEP PI/180 
2043 DRAW R*COS(D/5,R'SIN(D/5 
2044 NEXT.I 
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SOCIEDAD 


Industrias en España 


Es siempre importante el nivel de in- 
dustrialización de un país, por las connotacio- 
nes económicas y sociales que ello tiene a la 
hora de encuadrar ese país en un ámbito de 
industrialización; pero además de todo esto es 
también muy útil poder conocer la localización 
exacta de estas industrias, ya que esto nos 
permite darnos una idea de otras característi- 


REM 
REM _xxxxex INDUSTRIAS EN ESPAÑA 
DIM 1$(39>:DIM P$(47) :DIM N(47,30> 
CLs 


LOCATE 10,13:PRINT "x*x* 1 
LOCATE 12,13:PRINT "xx E 


N 
N 


FOR I=1 TO 
READ I1$(1> 
120 NEXT 1 

FOR I=1 TO 
READ P$(1) 
NEXT 1 

FOR I=1 TO 47 
FOR J=1 TO 30 
READ NC1,J> 

NEXT J 

NEXT 1 

CLS:LET C=0 

PRINT * 1 
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47 


ARIAS 
AR 
REM A IR RR EIEIIRIIIE 


cas también muy importantes, como pueden 
ser la topografía de ese país, la riqueza del 
suelo, el tipo de ganado que existe, el desarro- 
llo técnico, etc. 

Por ello, en este programa mostramos 
un localización concreta de las industrias, dan- 
do una relación de las provincias en las que si- 
tuaremos los más importantes complejos in- 
dustriales. 


De esta manera, podemos estudiar lo 
que genéricamente denominamos riqueza de 
una región o grado de industrialización de la 
misma. Y observamos cómo hay provincias 
que, o bien por su situación geográfica o bien 
por otros factores, como pueden ser incluso la 
historia que haya tenido esa región, son más 
ricas que otras que se encuentran en condi- 
ciones más desfavorables. Y cómo se localizan 
industrias similares en zonas próximas y de 
cultivos semejantes. 


Otro factor que se puede deducir de la 
localización industrial son los diferentes cli- 
mas que reinan en esa zona. 

El programa que a continuación se pre- 
senta nos ofrece una panorámica general de 
la situación industrial española. Introduciendo 
el nombre de la provincia de la que se desea 
conocer su industria, el ordenador nos dará 
una relación de las principales industrias de 
ese lugar. 

Hay que tener en cuenta que se debe 
introducir el nombre completo de la provin- 
cia. Por ejemplo, el caso de Castellón de la Pla- 
na. También cabe resaltar que se ha omitido 
en lo posible el nombre de las comunidades 
autónomas, a excepción de la provincia de La 
Rioja, que ha sido introducida en el programa 
con este nombre. 


LOCATE 9, 13S1PRINT_ II III 
Ss 


4 > R 1 A S xXx" 


P A Ñ A e" 


IE IT IIA 


ESPA 
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Aa" 

230 LOCATE 94,13:PRINT VARHAA ERE RE AER RARA EEE ARA 

240 LOCATE 10,13:PRINT "*x INTRODUCE EL NOMBRE DE LA PROVINCIA ESPAÑOLA xX*" 

250 LOCATE 12,13:PRINT "xx DE LA QUE DESEES CONOCER SU INDUSTRIA. .." 

260 LOCATE 13,13:PRINT A 

270 LOCATE 17,30: INPUT "PROVINCIA:";A$ 

280 FOR I=1 TO 47 

290 1F AS$=P$(1)> THEN LET C=1:GOTO 320 

300 NEXT 1 

310 GOTO 210 

320 CLS:PRINT “INDUSTRIA DE "¿P$(C> 

330 FOR I=1 TO 15 

390 LOCATE 2+1,8:PRINT 1$(N(C0,1))> 

350 LOCATE 2+1,40:PRINT I$(N(C,15+1>) 

360 NEXT 1 

370 LOCATE 20,13:PRINT "x** PULSE UNA TECLA PARA CONTINUAR (S PARA SALIR) xx" 

380 LET Z$=INKEYS$:1F Z$="" THEN GOTO 380 

390 IF 2$="S" THEN END 

400 GOTO 210 

310 DATA MAQUINARIA EN GENERAL ,MOTORES, HERRAMIENTAS, UTENSILIOS, CURTIDOS, CALZADOS 
+AUTOMOVILES,MOTOCICLETAS,BICICLETAS,ASTILLEROS 

420 DATA ARMAS , AVIONES, CARROCERIAS, SIDERURGIA, PLOMO, ZINC,COBRE ALUMINIO, URANTO,A 
LGODON 

430 DATA LANA,SEDA,FIBRAS SINTETICAS,CAÑAMO LINO Y ESPARTO, QUIMICAS, FARMACEUTICA 
S,PAPEL,FOSFORO, VIDRIO, TABACO 

440 DATA CERAMICA ,CORCHO, CEMENTO,MADERA 

450 DATA LA CORUÑA, LUGO, ORENSE, PONTEVEDRA, ASTURIAS , LEON, ZAMORA , SALAMANCA , VALLADO 
LID,PALENCIA 

4960 DATA ALAVA VIZCAYA, GUIPUZCOA NAVARRA, HUESCA, ZARAGOZA, TERUEL AVILA, SEGOVIA, S0 
RIA 

470 DATA LA RIOJA,BURGOS, SANTANDER, MADRID, TOLEDO, CIUDAD REAL, CUENCA, GUADALAJARA , 
MURCIA ALBACETE 

480 DATA VALENCIA,CASTELLON DE LA PLANA ALICANTE, BARCELONA , TARRAGONA , LERIDA, GERO 


490 DATA CORDOBA, SEVILLA,MALAGA , GRANADA ALMERIA, HUELVA, CADIZ 


500 DATA 1,2,3,6,10,25,26,14,20,21,28,30,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
510 DATA 5,13,25,18,21,33,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

520 DATA 1,2,2,5,6,13,26,25,21,27,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

530 DATA 1,2,3,5,6,10,7,13,25,18,21,24,27,31,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
540 DATA 5,6,10,8,11,25,26,14,16,18,20,21,30,28,31,33,0,0,0,0,0,0,0,0,0,0,0,0,0, 
D 

550 DATA 1,2,5,6,13,25,26,20,21,33,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

560 DATA $,5,7,25,20,21,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

570 DATA 1,5,6,25,20,21,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

580 DATA 1,5,6,7,13,25,14,20,21,23,24,27,31,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
590 DATA 5,6,25,17,21,24,33,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

£00 DATA 1,2,3,4,5,6,7,8,25,20,21,27,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

610 DATA 1,2,23,4,5,6,7,10,13,25,26,16,14,17,20,21,22,24,27,34,33,0,0,0,0,0,0,0,0 
0 

, 

620 DATA 1,2,3,5,6,10,11,8,97,13,25;,26,15,16,20,21,22,31,30,28,27,0,0,0,0,0,0,0,0 
0 

, 

630 DATA 3,5,6,7,25,13,21,22,24,27,33,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

640 DATA 5,6,25,18,20,27,33,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

£50 DATA 1,2,23,5,6,13,7,26,25,14,20,21,22,23,24,27,27,33,0,0,0,0,0,0,0,0,0,0,9,0 
$60 DATA 5,6,25,21,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

$70 DATA 6,7,21,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

A 680 DATA 5,6,13,25,21,24,31,29,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
¿ 6790 DATA 20,25,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

700 DATA 3,5,6,13,25,21,20,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

710 DATA 20,5,6,21,25,22,23,27,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

720 DATA 1,3,5,6,10,25,14,15,20,21,24,30,27,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
730 DATA 1,2,3,5,6,4,7,8,14,13,25,26,21,20,22,28,2 ,30,33,0,0,0,0,0,0,0,0,0,0,0 
740 DATA 11,13,6,25,21,20,24,31,33,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

750 DATA $,25,21,33,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

760 DATA 9,25,21,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

770 DATA 5,6,25,21,27,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

780 DATA 5,6,13,25,26,14,15,20,21,22,33,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
790 DATA 1,2,3,5,11,25,21,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

800 DATA 1,2,3,5,6,4,10,25,26,16,14,20,21,22,23,24,31,30,27,28,32,33,34,0,0,0,0, 
0,0,0 

s10 DATA 1,2,5,6,25,26,21,20,22,24,31,27,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
820 DATA 1,2,3,9,6,13,25,21,22,20,24,30,28,27,33,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
830 DATA 1,2,23,5,6,4,13,7,8,10,7,25,26,15,14,16,20,21,22,23,24,27,28,30,31,33,34 
129,32,0 5 

840 DATA 5,6,25,26,21,20,22,24,34,30,28,27,31,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
850 DATA 5,6,3,25,24,21,20,27,33,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

360 DATA 1,2,6,5,9,13,25,6,21,20,23,24,27,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

870 DATA 5,6,11,25,32,21,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

880 DATA 5,6,14,25,20,21,32,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

290 DATA 5,6,15,25,19,21,32,24,31,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


46 


AENA AO ESO E MA TEN A ANA 


900 DATA 5,6,13,25,26,21,15,16,20,24,27,32,33,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
910 DATA 1,2,4,5,6,7,11, o, 25, 26, 13, 21, 22, 20, 24) 28,27,27,31,0,0,0,0,0,0,0,0,0,0, 
o 

920 DATA 1,25,6,5,26,14,15,16,21,20,32,24,27,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
930 DATA 5,6,26,25, 20, zi, 24, 27, 0, 0, 0 ,0,0, 0 ,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

940 DATA 5,6,25,1,27, 33, o, 0,0, o, o, 0 ,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

950 DATA 17,6,20,24, 25, 34, 33, 32, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

960 DATA 5,6,10,14,25, 20, 21, 24, 27, 32,33,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


Modificaciones para otros equipos 


El ordenador IBM PC ejecutará este 
programa sin realizar ninguna modificación 
en él. Las modificaciones para el resto de los 
equipos son: 


ZX-SPECTRUM: 


Este programa quizá tenga dificultades 
para ejecutarse en SPECTRUM, debido a la 
gran cantidad de memoria ocupada. De todas 
formas sugerimos las siguientes modificacio- 
nes: 


40 DIM 1$(34,21):DIM P$(47,21):DIM N(47,30) 


Sustituir LOCATE X,Y por PRINT AT 
X,Y en líneas 60, 70, 80, 90, 230, 240, 260, 270, 
340, 350, 370 


390 IF Z$="S” THEN GOTO 9999 


Introducir los DATA alfanuméricos en- 
tre comillas. 


COMMODORE: 
Simular LOCATE con la subrutina del 


tomo 1 mencionada anteriormente. 


Sustituir CLS por PRINT CHR$(147) en 
líneas 50, 210, 320. 


AMSTRAD: 
Sustituir LOCATE X, Y por LOCATE YX. 


MSX: 


Mismas modificaciones que AMSTRAD. 
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PARA LOS MAS JOVENES 


== Test de divisibilidad de números - 
naturales 


Para poder hablar de divisibilidad te- 
nemos que conocer previamente los concep- 
tos de múltiplo y submúltiplo que nos dan una 
idea más aproximada del significado de esa 
palabra. 

Se llama múltiplo de un número N a otro 
que resulta de multiplicar ese número N por 
una cantidad. 

Y submúltiplo, a un número que resulta 
de dividir uno que teníamos inicialmente por 
una cantidad. 

Si esta división resulta exacta podemos 
decir que el número entre el que hemos divi- 
dido, es decir, el divisor, es factor del pri- 
mero. 

De aquí podemos deducir, a su vez, al- 
gunas definiciones, como son la de número 
primo y la de descomposición factorial de un 
número. 

Cuando un número tiene como únicos 
factores el propio número y la unidad se dice 
que ese número es primo. 

Sin embargo, cuando tiene varios facto- 
res, es decir, es divisible por varios números 
podemos hallar la descomposición factorial de 
ese número que es el producto indicado de to- 
dos los números primos entre los que es divi- 
sible ese número. 

De todas maneras este programa, con- 
trariamente al que apareció en un tomo ante- 
rior, nos pide que vayamos nosotros descom- 
poniendo el número. Esta descomposición no 
tiene por qué ser en factores primos habiendo, 
por tanto, múltiples factores a la descomposi- 
ción factorial. 

Al final nos aparecerá la descomposi- 
ción en factores primos del número que el or- 
denador ha elegido aleatoriamente, así como 
el número de fallos que hemos cometido al di- 
vidir el número sucesivamente. 


APRENDER CON EL ORDENADOR E 


AE 13 


10 
20 
30 
40 
50 
60 
70 


REM ARAHAL AAA EA AAA AR 

REM * COMIENZO DEL PROGRAMA +* 

REM rr 0d IE RAR 

CLS 

LET C=0 

RANDOMIZE TIMER 

LET N=INT (RND*10000>+1 

80 LET A=N 

0 LOCATE 10,20:PRINT "POR QUE NUMERO SE PUEDE DIVIDIR ";A;">?" 

100 LOCATE 15,27: INPUT X:1F X=0 THEN GOTO 100 

110 IF X=1 THEN LOCATE 17,22:PRINT "ESO YA LO SABIA YO" 

LS:GOTO 90 

120 IF X=A THEN GOTO 230 

130 IF (CA/X>-INT<(A/X)3))=0 THEN LOCATE 20,20:PRINT “;;¡ 
180 
140 

150 

160 

170 
180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 
1000 


¿FOR I=1 TO 1000:NEXT 1:€C 


ECORREETO!!”:G0TO 


LOCATE 20,27:PRINT "¡¡ NO !!":LET C=C+1 
FOR I=1 TO 1000:NEXT 1 
CLS 
GOTO 90 
FOR I=1 TO 1000:NEXT 1 
CLs 
PRINT Aj"/";X3"="¡8/X 
LET A=A/X 
GOTO 90 
CLS 
LOCATE 10,25:PRINT 
LOCATE 12,25:PRINT 
LOCATE 14,10:PRINT N;"=";:GOSUB 1040 
LOCATE 16,20:PRINT "SI QUIERES PROBAR OTRA VEZ PULSA ESPACIO" 
LET Z$=INKEY$:1F Z$="" THEN GOTO 280 
IF Zé=" " THEN GOTO 40 
END 
REM AHHH ARA ERA ERA AA EA RAEE RAR 


"LA DIVISION HA TERMINADO. " 
"HAS TENIDO *";C;" FALLOS” 


1010 REM x** DESCOMPOSICION EN FACTORES PRIMOS x*%x* 
1020 REM x** DEL NUMERO ELEGIDO ALEATORIAMENTE *x 
1030 REM ARAHAL EEE EEN ELL ALL CEREAL 
1040 GOTO 1080 

1050 PRINT " 2 x"; 

1060 LET N=N/2 

1070 IF N-1=0 THEN GOTO 1190 


10809 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 


IF ((N/2)-INT(N/2)>=0 THEN GOTO 1050 » 
LET M=3 

LET Q=SQR(N)+1 

1F M>=Q THEN GOTO 1180 

IF ((N/M)-INT(N/M>3=0 THEN GOTO 1140 
LET M=M+2:GOTO 1110 : 

IF N/MxM-N=0 THEN GOTO 1160 

GOTO 1130 

PRINT Mz" x"; 

LET N=N/M:GOTO 1100 

PRINT N;" x"; 

PRINT * 1" :RETURN 


COMMODORE: 
40 PRINT CHR$(147) 


Suprimir línea 60. 

Para simular LOCATE X,Y:PRINT "..” 
utilizar la rutina del tomo 1 para situar el cur- 
sor en una posición determinada de la panta- 
lla. 


Modificaciones para otros equipos 


ME programa es válido para el IBM PC. 


Las modificaciones para los demás equipos 
son: 


ZX-SPECTRUM: 
60 RANDOMIZE 0 


Sustituir LOCATE X,Y:PRINT por 160 PRINT CHR$(147) 
PRINT AT X, Y"... en las sentencias correspon- 190 PRINT CHR$(147) 
dientes. Cambiar CLS por PRINT CHR$(147) en 
300 GOTO 9999 línea 110. 
AMSTRAD: 230 PRINT CHR$(147) 


60 RANDOMIZE TIME 


Sustituir LOCATE X, Y por LOCATE Y,X 
en las sentencias adecuadas. 


MSX: 


Las mismas modificaciones que para 
AMSTRAD. 
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PEQUEÑA HISTORIA DE LA INFORMATIC 


2 Los comienzos de una gran 
multinacional, la IBM 


OMO bien sabemos, los orí- 
genes de la IBM están en la 
fusión de tres empresas, 
que se unieron en 1911 para 
formar la Computing Tabu- 
lating Recording Company. 
Una de las empresas funda- 
doras fue la compañía de ta- 
buladoras de Herman Hollerith, y las otras dos 
se dedicaban a maquinaria específica de pre- 
cisión, aunque no tenían nada que ver con las 
tareas de oficina; una de ellas fabricaba balan- 
zas de precisión, y la otra, relojes. Dichas em- 
presas tampoco estaban creadas y habían ido 
creciendo con el tiempo. Eran producto de la 
unión de otras muchas empresas bastante más 
pequeñas, que se iban fusionando para dispo- 
ner de mayores recursos. 

En los años siguientes a su creación, la 
CTR no era una empresa demasiado rentable. 
Apenas si obtenía beneficios, y no conseguía 
vencer el mercado potencial al que tenía que 
enfrentarse. 

Con el fin de cambiar la situación, se 
nombró director general a un hombre que, al 
menos, había demostrado ser un magnífico 
trabajador y un excelente vendedor: Thomas 
Watson. Al año de la gestión de Watson, la em- 
presa había crecido y contaba con casi mil 
quinientos empleados, obteniendo unos bene- 
ficios realmente altísimos, casi el 30 %. 

El secreto de su éxito fue una política 
de seriedad, eficacia, agresividad. Además, 
reinvertía para poder expandirse con firmeza. 
Poco tiempo después, hacia el final de la Pri- 
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mera Guerra Mundial, Watson había consegui- 
do que las ventas se cuadruplicaran, aunque 
los beneficios no llegaron al esperado 30 %, 
meta que Watson se había propuesto, y que in- 
tentaba que todos sus empleados le ayudaran 
a conseguir. 


La compañía matriz, CTR, tenía contac- 
tos en el extranjero, principalmente en Alema- 
nia e Inglaterra. Watson cuidó mucho de man- 
tener esos contactos y clientes, mejorando sus 
relaciones sustancialmente. 


Como también conocerá el lector, por 
haberlo mencionado en algún otro momento, 
en 1924, Watson decide cambiar el nombre a 
la compañía, y le impone el que había selec- 
cionado en 1917 para su surcursal canadiense, 
International Business Machines. En cierto 
modo, este pequeño dato que parece no tener 
importancia, supone un cambio de rumbo. En 
ese momento, la dirección de la compañía se 
decanta por dejar de lado las balanzas y re- 
lojes, y centrarse, fundamentalmente, en la 
maquinaria de tarjetas perforadas, típica de 
resolución de tareas de oficina. (La sucursal 
de IBM en Canadá suponía una fábrica de fi- 
chas y una planta de montaje.) 


Watson siguió con su política de expan- 
sión, creando nuevas plantas de montaje y fá- 
bricas de tarjetas en puntos clave del conti- 
nente europeo. Así, en 1922, lo hace en París, 
donde establece la Société Internationale del 
Machines Commerciales, que se dedicaba pri- 
mordialmente a tabuladoras tipo Hollerith. 


En el año 1929 se produce la caída de 
la Bolsa de Nueva York. Sin embargo, la com- 
pañía subsiste, y consigue pagar dividendos a 
duras penas. A pesar de todo, sus ingresos 
brutos superan los quince millones de dólares 
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por esas fechas, y su personal ha crecido mu- 
chísimo. 

Los años de depresión afectaron a la 
compañía, pero no todo lo que se piensa. En 
primer lugar, no todo el campo industrial se 
vio afectado del mismo modo, y en segundo lu- 
gar, el Gobierno hacía enormes esfuerzos para 
canalizar los recursos del modo más eficaz. 
Todo este tipo de tareas exigía máquinas como 
las que podía ofrecer la IBM, de forma que en 
esos años el cliente principal de la gran com- 
pañía fue el Gobierno americano. 

La IBM ofrecía dos sistemas principales 
para la adquisición de sus máquinas: la com- 
pra, o el alquiler. Como las máquinas eran muy 
caras, muchas empresas no contaban con re- 
cursos suficientes para comprarlas, con lo que 
se decidían por alquilarlas. De este modo, 
además de rebajar el precio mensual, consi- 
deraban que obtendrían un mejor servicio por 
parte de la empresa fabricante, como, por otro 
lado, era cierto. (Sin embargo, la primacía del 
servicio al cliente fue siempre una norma de 
la empresa, que mimaba a sus empleados, a 
los que exigía una total dedicación.) Así pues, 
los ingresos de la compañía, en aquellos años 
difíciles de depresión eran, a pesar de todo, 
suficientes, gracias a los alquileres y también 
a las fichas perforadas que utilizaban las má- 
quinas, y que debían ser compradas exclusi- 
vamente a la casa fabricante, ya que, en caso 
contrario, era causa de rescisión de contrato. 

Pero no todos los ingresos de la compa- 
ñía provenían del continente americano. La 
IBM se había expandido muchísimo, y ya es- 
taba establecida en más de sesenta países, en 
los cuales, apenas si fabricaba nada, enviando 
el material desde los Estados Unidos para, a lo 
sumo, ser montado en el país que lo importaba. 

. , Con la política de reinversión de recur- 
sos, la empresa disponía de capital suficiente 
para ir renovando y adaptando su tecnología. 
Sin embargo, en este momento, Thomas Wat- 
son ya había envejecido, y era mucho más 
conservador. En 1925, apareció un nuevo mo- 
delo de clasificadora horizontal; unos años 
después se modificó el diseño de las fichas, 
pasando a tener ochenta columnas, pero no 
hubo muchos cambios hasta 1931, en que la 
empresa presentó la serie 600, que eran unas 
máquinas que realizaban multiplicaciones y 
divisiones. Realmente no puede considerarse 
que evolucionara a ritmo poderoso, más bien 
parecía un caracol, incapaz de salir de su có- 
moda concha, conocida y confortable. 

Sin embargo, la empresa tampoco ofre- 
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¿Sabía usted que... 


Vamos a contar al lector una pequeña anéc- 
dota sobre la IBM, que tiene dos versiones diferen- 
tes. 

Estando dos ejecutivos de una empresa to- 
mando una cola en una pequeña terraza de la ciu- 
dad donde la Gran Multinacional tiene su sede cen- 
tral, vieron pasar un enorme cortejo de elegantes co- 
ches negros. Uno de los ejecutivos dijo al otro: «Qué 
cortejo fúnebre más impresionante.» «No es un cor- 
tejo fúnebre —contestó el otro—, se trata, simplemen- 
te, de los abogados de IBM, que vuelven del restau- 
rante.» 

La segunda versión, simplemente constata 
que se trataba de los abogados de IBM, ocupados 
en algún juicio importante, que volvían después del 
descanso de la comida. 


cía grandes beneficios a los accionistas, Wat- 
son estaba llevando a cabo una política expan- 
sionista en el extranjero, de la que obtendría 
excelentes resultados a medio y largo plazo, 
pero que no resultaba muy clara para el ac- 
cionista medio. 

En los años siguientes, la compañía 
cambió algo su rumbo, haciéndose menos con- 
servadora. En 1933, adquirió otra compañía de 
máquinas de escribir, dato que parece muy 
sensato, dado que el mercado de IBM para sus 
otras máquinas eran precisamente las oficinas, 
en las que la máquina se había hecho impres- 
cindible, Sin embargo, poco tiempo después, 
la IBM sacó un nuevo modelo de máquina de 
escribir, eléctrica. Ya empezaba a derivar re- 
cursos para la investigación. 

A finales de los años treinta, la compa- 
fía ya era un monstruo enorme, con más de 
diez mil empleados y unos ingresos brutos de 
más de treinta millones de dólares. Los bene- 
ficios no habían vuelto a alcanzar las expecta- 
tivas del famoso 30 % si bien es cierto que es- 
taban muy cerca de alcanzarlo. 

La Segunda Guerra Mundial no supuso 
desastre alguno para la IBM. Es bien cierto 
que fue indemnizada por pérdidas en los paí- 
ses vencidos, pero la verdad es que creció 
enormemente, superando los ciento cincuenta 
millones de dólares de facturación al final de 
la contienda. 

Además, en tiempo de guerra es nor- 
mal que las compañías interesantes, desde al- 
gún punto de vista, se reconviertan para fabri- 


car material de guerra. Así les había ocurrido 
a innumerables compañías de máquinas de es- 
cribir, y otro tipo de máquinas especializadas. 
Pero para esos momentos, la IBM tenía muchos 
contactos en Washington y su potencia era in- 
creíble. De forma que consiguió convencer a 
la Administración de que el material que fa- 
bricaba era muy interesante para la industria 
de guerra, evitando la reconversión. La reali- 
dad es que así era, en cierto modo, aunque 
también podían ser útiles otras compañías que 
habían sido militarizadas. Además, la empre- 
sa estaba colaborando con cierto éxito en la- 
bores de criptografía, consideradas de impor- 
tancia fundamental para el Gobierno america- 
no. 

Para los años cincuenta, la compañía es- 
taba establecida en casi cualquier país del 
mundo, Quizá el mercado anglosajón fue de 
los últimos en los que consiguió penetrar, ya 
que tenía contactos con una compañía inglesa, 
la BTC (British Tabulation Machines Com- 
pany), que actuaba como subsidiaria de la 
IBM. 

En los años que siguieron, y tras algu- 
nos esfuerzos para readaptarse y comenzar a 
fabricar ordenadores, la empresa creció has- 
ta alcanzar los 600 millones de dólares, cifra 
increíble. Su perscnal había crecido casi al 
mismo ritmo, pasando a ser más de 70,000 per- 
sonas. La compañía había multiplicado sus in- 
gresos por catorce en dieciocho años. Todo un 
récord. 

Durante los años cincuenta, sesenta y al 
comienzo de los setenta, la compañía se en- 
frentaría a importantes marcas de la compe- 
tencia, algunas realmente no tan importantes. 
Pero antes de todo lo anterior, y que relatare- 
mos en otro momento con más detalle, natural- 
mente, la compañía pasó a fabricar ordenado- 
res. Dicen (las malas lenguas, desde luego) 
¡que el hecho que impulsó a IBM a pasar a la 
fabricación de ordenadores se basaba en la 
sensación de desprestigio por haber perdido 
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la cuenta del censo. Nosotros no lo creemos 
así. La verdad, es que esa cuenta es simple- 
mente un valor sentimental, sin demasiado in- 
terés, ya que el Gobierno de los Estados Uni- 
dos había demostrado, de mil formas diferen- 
tes, su consideración por la compañía. En 1930, 
la Oficina del Censo disponía de maquinaria 
propia, pero también tenía máquinas IBM. 

Además de las consideraciones anterio- 
res, la verdad es que junto a Watson se en- 
contraba un nuevo equipo de personas mucho 
más jóvenes, entre los que descollaba su hijo 
mayor, Thomas Watson junior, que abogaban 
por un cambio de rumbo de la empresa, pára 
pasar a fabricar otro tipo de máquinas univer- 
sales, mucho más complejas, que requerían 
una gran inversión en investigación, pero que 
hasta el momento eran «asequibles» para la 
gran empresa. Es probable que si la IBM no se 
hubiera decidido en aquel momento hacia el 
cambio, no hubiera obtenido la posición que 
ha ido alcanzando en los años sucesivos. 

Tom Watson junior había sido educado 
por su padre para sucederle, igual que los re- 
yes preparan a sus hijos, con todo cuidado. 
Fue a las mejores universidades (hablaremos 
de ello más adelante) y continuó su educación 
en Europa. Pero quizá una de las cosas que 
más marcaron a Watson junior fue su partici- 
pación como piloto en la Segunda Guerra 
Mundial. Este hecho no parece tener mucha 
relación con su cargo en la compañía que di- 
rigía su padre, pero sí lo tuvo, ya que se ro- 
deó de un equipo de veteranos de guerra, 
gente experimentada, y también moderna, 
que veía los problemas desde una perspecti- 
va más real que la de Watson senior, que, a 
pesar de su enorme valía y sentido común, es- 
taba dando muestras de un conservadurismo 
excesivo. 

Seguiremos hablando de la gran multi- 
nacional, del primer ordenador, de la serie 
360 y de otras muchas cosas que quedan por 
decir en estas cortas líneas 
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SIMULADORES 
2 Simuladores de navegación 


OS simuladores son equipos 
utilísimos. A pesar de su pre- 
cio, con frecuencia muy alto, 
ahorran mucho dinero. 

Los pilotos y nave- 
gantes son personas que 
con frecuencia manejan 
equipos importantes y valio- 

sos. Por tanto, tienen una enorme responsabi- 
lidad entre sus manos. Esa responsabilidad y 
la experiencia son cualidades que se van de- 
sarrollando con los años, y las vivencias. En los 
tiempos actuales, la experiencia debe obte- 
nerse rápidamente, y no se puede despilfarrar 
tiempo ni errores para adquirirla. 

El navegante utiliza el simulador 
para adquirir experiencia. Navega por aguas 
conocidas y también desconocidas. Se le pre- 
sentan situaciones nuevas, que debe resolver 
reaccionando con habilidad. Desde su puesto 
puede observar la ventana del puente, y verá 
que ésta va cambiando por todos los agentes 
que actúan. Agentes externos, como las con- 
diciones meteorológicas, posiciones y reaccio- 
nes de otros barcos, y producidas por el pro- 
pio piloto, que maneja los mandos del barco. 
Puede navegar de día y de noche, acercarse 
a un puerto o sortear escollos, observar seña- 
les desde otros barcos o las estrellas que bri- 
llan en el firmamento, y que debe reconocer. 
Todo se comporta del mismo modo que si es- 
tuviera en el mar, enfrentándose al destino. 

Los simuladores son útiles para muchos 
objetivos distintos, veamos algunos: 

a) Sirven para iniciar a los alumnos en 
tareas de pilotaje. De este modo, se evitan los 
errores por falta de experiencia, cuyas causas 
pueden deteriorar equipos, frecuentemente 
muy caros, e incluso el propio barco. 

b) Sirven para entrenamiento y puesta 
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a punto para oficiales con experiencia, por 
ejemplo, para pasar de un determinado barco 
a otro más grande, o distinto en algún aspecto. 

Cc) Preparan a las personas a enfrentar- 
se a situaciones peligrosas o difíciles, de for- 
ma que en el momento en que se produzcan 
ya estén familiarizados con ellas, y no pierdan 
un tiempo en pensar posibles salidas, tiempo 
que puede ser importante en resolver la situa- 
ción. 

d) Se gana en seguridad, por todas las 
razones anteriormente expuestas. 

e) Se estudian efectos especiales al 
acercarse a puertos, a barcos, etc. 

f) Sirven para investigar en el diseño 
de barcos, puertos, etc. 

Para crear un simulador, lo primero que 
se hace es medir todas las características del 
barco para, posteriormente, realizar los mode- 
los matemáticos en un ordenador de simula- 
ción. El modelo debe actuar a los contro- 
les del puente de mando, y responder adecua- 
damente. La posición y el rumbo son datos que 
se van suministrando continuamente desde el 
ordenador de simulación al ordenador que 
crea los escenarios, que, a su vez, mantiene un 
modelo matemático completo de toda la esce- 
na que aparezca dentro de una determinada 
distancia, con un horizonte específico. Ade- 
más, el ordenador escenario actualiza los va- 
lores de posición y rumbos de los «otros bar- 
cos» y objetos móviles de la escena. En cuanto 
a dichos barcos y otros objetos cambiantes de 
la escena, de los que hemos hablado, también 
pueden programarse o ser controlados exte- 
riormente por un monitor. El cuadro completo 
puede entonces enviarse al generador de es- 
cenarios, que traduce dicho dibujo en se- 
ñales adecuadas para ser presentadas en el 
monitor de vídeo. Para que el proceso tenga 
un realismo aceptable, es necesario que todas 
las tareas anteriores se realicen unas veinti- 
cinco veces por segundo. En la figura que 
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mostramos, las señales de vídeo se envían a 
cinco proyectores que proyectan imágenes 
sobre la parte posterior de una pantalla de vi- 
sualización, Dicha pantalla se encuentra de- 
lante del puente de mando, siendo indepen- 
diente de los proyectores. El campo de visión 
que se ve desde el puente está formado por 
la aportación de cada proyector, 40 grados. 
Por tanto, en nuestro caso, será de 200 grados. 

Las escenas que maneja el ordenador 
de escenarios se mantienen como un conjunto 
de modelos, cada uno de los cuales está defi- 
nido por una serie de imágenes planas. En el 
momento de introducirlas dentro del campo 
visual, las imágenes se procesan rápidamen- 
te, para que sólo las que sean visibles al es- 
pectador pasen al generador de imágenes. 
Una escena contiene muchos elementos típi- 
cos, como, por ejemplo, los barcos de que ha- 
blamos anteriormente, puertos, olas, islas, 
montañas, olas producidas por otras embarca- 
ciones, etc. Todos estos elementos combina- 
dos, producen una simulación real, vívida y 
muy útil. 


E2 Simuladores de vuelo 


Echemos un rápido vistazo de en qué 
consiste un simulador de vuelo, Uno de los 
más utilizados es el CT-5, angloamericano. 

El uso inmediato de los simuladores de 
vuelo es el entrenamiento de pilotos de avia- 
ción. Los primeros simuladores aparecieron 
en los años sesenta, y han ido mejorando mu- 
cho con el tiempo, siguiendo fielmente el des- 
arrollo espectacular de la industria informá- 
tica. 

Las escenas que aparecen en los últi- 
mos. modelos son de un realismo extraordina- 
rio, y además disponen de una amplísima 
gama de modelos de aviones. El número de si- 
muladores que existen en el mercado también 
ha aumentado mucho. 

Los simuladores imitan virtualmente 
muchísimos tipos de avión, reproducen aero- 
puertos, pistas de aterrizaje, oilrigs en el mar, 
y otros entornos posibles. 

Los principales compradores de este 
tipo de equipos son las grandes compañías de 
aviación, el Ejército del Aire, y algunas peque- 
ñas compañías, dedicadas a la preparación de 
pilotos. Apenas si existen simuladores para pi- 
lotaje de helicópteros. 

Para cada uno de los casos, el simula- 
dor debe disponer del cuadro de mandos 
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completo de cada aparato, aunque bien es 
cierto que muchos aparatos disponen de cua- 
dros de mando muy similares, El piloto se sien- 
ta en la cabina de control, y puede ver por la 
ventana los mismos elementos que vería si es- 
tuviera sentado en su avión. La ventana dispo- 
ne de sistemas sofisticadísimos que reprodu- 
cen exactamente lo que ocurre en el exterior 
y el comportamiento del avión con las accio- 
nes del piloto, Existen, incluso, algunos simu- 
ladores que reproducen la acción del viento 
sobre la cabina, inclinándola en función, tanto 
del ángulo de incidencia del viento sobre ella, 
como de las velocidades respectivas, viento, 
nave. La pantalla debe ser capaz de mostrar 
detalles difíciles de interpretar en imágenes, 
como viento, arena, niebla, etc. 

La estructura del sistema puede verse 
en la figura. El piloto se encuentra sentado en 
la cabina, unos proyectores que se encuentran 
detrás y sobre él proyectan imágenes sobre 
la pantalla. 

Los simuladores son útiles para resolver 
algunos tipos de problemas; veamos algunos 
Ce ellos: 

Sirven para entrenar a la tripulación en 
la resolución de situaciones extremas o peli- 
grosas, como fuego en el aparato, mal funcio- 
namiento de controles o mandos, malas condi- 
ciones climatológicas, colisiones, aterrizajes 
de emergencia, etc. Es fundamental que se 
dote de experiencia válida a las tripulaciones 
ante tales circunstancias, y todo ello sin peli- 
gro para el piloto. El ahorro en material es ade- 
más considerable. Este extremo es a tener en 
cuenta, ya que el coste por hora de pilotaje es 
altísimo y, aunque los buenos simuladores son 
caros, el gasto se reduce muchísimo (supone 
aproximadamente un 10 por 100 del pre- 
cio de entrenamiento con un aparato). Ade- 
más, aprovechan los mejores instructores, que 
no se cansan, viajando constantemente, y pue- 
den ser mucho más útiles en tierra, donde se 
producen esas «terribles condiciones», que 
afortunadamente no se dan en vuelo todos los 
días. 

El desarrollo de un nuevo simulador re- 
quiere una inversión considerable. En primer 
lugar, obliga a la creación de modelos mate- 
máticos que reproduzcan las condiciones para 
pasar, a continuación, al desarrollo del softwa- 
re, que reproduzca tales condiciones de en- 
torno. También deben duplicarse e introducir- 
se en el simulador, los controles físicos, El tra- 
bajo completo puede durar más de dos o tres 
años. 


Las imágenes que se suministran al sis- 
tema de presentación difieren de un sistema 
a otro. Sin embargo, el realismo depende del 
número de polígonos (o superficies) que pue- 
dan procesarse para formar la imagen que 
está en continua transformación, y el tipo de 
sistema utilizado para presentar la imagen. 
Naturalmente, a mayor número de polígonos 
que se puedan generar, más detalles de todo 
tipo tendrá la imagen, y más sensación de rea- 
lismo. Estos polígonos (o superficies) se toman 
de una base de datos muy grande. El número 
de detalles también se incrementa al acercat- 
se a superficies concretas, donde es evidente 
que tienen mucha mayor importancia detalles 
como el tipo de terreno, etc. Entre las posibles 
escenas, deben encontrarse aeropuertos con- 
cretos, con sus peculiaridades específicas, 
pero también, como antes hemos comentado, 
condiciones externas atípicas, vientos, pistas 
de aterrizaje cortas o faltas de pista de aterri- 
zaje, etc. 

Hemos de indicar también que los si- 
muladores tienen una importancia enorme en 
investigación. Suponen un medio importante 
para comprobar las reacciones del avión, ante 
distintos diseños, de sus partes, proporcionan- 
do un medio rápido y barato de acercamiento 
a la solución idónea. 

También sirven para probar los distin- 
tos tipos de avión, y estudiar sus característi- 
cas, fallos, etc., comparativamente, forzando 
condiciones extraordinarias sin riesgo ni 
coste. 

Después de estudiar de forma muy ge- 
neral las cualidades de los simuladores, vea- 
mos también someramente su estructura, com- 
puesta por un procesador de propósito gene- 
ral (que maneja los datos, procesa los mode- 
los matemáticos, modifica los datos con los pa- 
rámetros variables que se le introduzcan, 
etcétera), un procesador de imágenes (que 
prepara los datos para su presentación visual) 
y un elemento de proyección de las imágenes 
(pantalla de representación de los escena- 
rios). Á su vez, el procesador de imágenes 
(hardware específico y clave del simulador) 
está compuesto por cuatro elementos funda- 
mentales (en el orden en que intervienen para 
crear el escenario): el manejador de objetos, 
el manejador de polígonos, el procesador geo- 
métrico y el procesador de presentación. 

La tarea fundamental del manejador de 
objetos es, partiendo del punto de vista del pi- 
loto, producir elementos para la escena. Para 
ello debe dirigirse a la base de datos y ex- 
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Fig. 1. Simulador de vuelo. A: conjunto de tres cámaras cada 

una de las cuales proyecta sobre un tercio de la pantalla. B: po- 

sición del usuario (piloto). C: pantalla de proyección de 150 gra- 
dos. La zona sombreada representa el campo visual. 


traer el número menor posible de elementos 
que puedan intervenir en la escena, clasificán- 
dolos según prioridades visuales (deben ver- 
se de delante hacia atrás). Si se desean mu- 
chos elementos en escena, la base de datos 
debe ser muy amplia y eficaz. Generalmente, 
la base de datos tiene estructura arbórea, or- 
ganizada jerárquicamente por niveles de de- 
talle. Los detalles son los polígonos, luces y 
otros objetos de la escena, estructurados de 
forma que se procese su visibilidad con rapi- 
dez y eficacia, ya que la velocidad de cómpu- 
to es fundamental. 

La base de datos estructurada organiza 
los objetos asociándolos geográficamente en 
celdas o células. El procesador de estas cel- 
das parte de un punto de vista del espectador, 
Aquellas celdas que no aparecen en algunos 
de los canales son desechadas inmediata- 
mente. 

En la base de datos de que hablamos, 
en el nivel más bajo, se encuentran los ele- 
mentos de escena, que pueden ser polígonos 
o luces, cada uno con sus características espe- 
ciales. 

El nivel siguiente lo constituyen los ob- 
jetos, que pueden contener más información 
adicional (aparte de la información básica que, 
como elementos de escena, deben aportar). 

El nivel siguiente lo constituye la celda, 
que, ya tiene un volumen y está representada 
en la base de datos por un nodo del árbol en 
que están estructurados los elementos y obje- 
tos de la escena. 

Las comprobaciones de visibilidad son 
muy importantes, y se realizan lo más pronto 
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posible, para comprobar qué partes no apare- 
cen en ningún canal de los utilizados. El ma- 
nejador de objetos sólo realiza comprobacio- 
nes de tipo general dejando otras pruebas es- 
pecíficas para el manejador de polígonos. 

El manejador de polígonos, realiza 
otra serie de comprobaciones de mucha ma- 
yor precisión, sobre los elementos procesados 
por el manejador de objetos, y almacenados 
en su memoria de campo. Las comprobacio- 
nes se realizan utilizando una memoria geomé- 
trica que contiene la información del punto de 
vista y los datos estructurales de los elemen- 
tos de la escena. De todas estas comprobacio- 
nes se obtienen unos elementos que sobrevi- 
ven y continúan su proceso, pasando a conti- 
nuación cada elemento de la escena al proce- 
sador geométrico. 

El procesador geométrico recibe los 
elementos de la escena (polígonos y luces) en 
forma de coordenadas del espacio, que se está 
modelizando desde el manejador de polígo- 
nos. A continuación, pasa de transformar di- 
chos polígonos en coordenadas de canal, y a 
ponerlos en relación con los límites (la fronte- 
ra) del canal (es decir, la porción de escena 
que en ese canal se va a representar). Los vér- 
tices interiores de la frontera del canal se 
transforman a la escala que corresponda, se- 
gún la resolución de la pantalla asociada a ese 
canal. La descripción resultante de todos 
esos elementos, adecuadamente probados se 
almacena en la memoria de polígonos para ser 
procesada por el procesador de presentación. 

La operación se completa mediante el 
procesador de presentación, que finaliza la re- 
presentación de la imagen actual en el moni- 
tor. Este elemento trata con zonas rectangula- 
res de la pantalla llamadas spans (que son sim- 
plemente un conjunto de pixels). 


Ordenador 
de 
proceso 


Manejador 
de 
objetos 


Manejador 
de 
objetos 


Procesador 
geométrico 


Existen dos posibilidades, procesar la 
información, analizando línea por línea, o por 
spans. Este último método es más rápido, y 
permite una resolución mayor. Las operacio- 
nes que realiza este manejador de presenta- 
ción, comienzan en la memoria de polígonos, 
que contiene las descripciones de los objetos 
en un orden de prioridad visual, y que dirige 
los elementos de la escena al procesador de 
span, uno a uno, comenzando por aquel polí- 
gono que se encuentre más próximo al punto 
de vista. El procesador de span prepara una 
descripción analítica de los elementos de la 
escena que se encuentran en el span vigente. 

Se utiliza a continuación una máscara 
de memoria, con el fin de borrar aquellas par- 
tes de la descripción analítica que se corres- 
ponden con partes del span al que se está apli- 
cando la máscara en ese momento. 

A continuación, se añade la descripción 
geométrica del polígono a la máscara de me- 
moria, como ayuda para el proceso de esce- 
nas posteriores, dentro de ese span. 

Como puede comprobarse, el nivel de 
exactitud al final de las etapas es enorme. La 
imagen es real, desde el punto de vista geo- 
métrico es fiable, sin que la división en pixels 
de la pantalla se vea afectada. Además, el pro- 
ceso por spans permite procesar del mismo 
modo todas las imágenes, y, además, el filtro 
especial retiene detalles del dibujo. 

En la actualidad se siguen mejorando 
estos sistemas. Algunos pretenden considerar 
la dirección de la mirada del piloto, por diver- 
sos sistemas, espejos, etc. Otros sistemas van 
provistos de un casco, que provoca rotaciones 
de la imagen general con el movimiento de la 
cabeza del piloto. Este último sistema ofrece 
múltiples ventajas, ya que la visión es mucho 
más amplia y más real. 


Procesador 
de imagen 


presentación 


Fig. 2. Estructura genérica de un simulador. El conjunto de procesador A forma el «procesador de punto de vista» y el grupo de ele- 
mentos B el «procesador de canal». 


56 


TERMINOLOGIA 007 


GLOSARIO DE TERMINOS 
UTILIZADOS 
EN SIMULACION 


Base de Datos jerárquica. Es aquella Base 
de Datos en que los datos aparecen estruc- 
turados según un esquema jerárquico en 
forma de árbol. 


Celda. Conjunto de objetos distribuidos en 
una disposición espacial y unidos por su re- 
lación geográfica para formar una unidad 
en la Base de Datos representativa de la es- 
cena. 


Elemento de escena. Cada una de las figu- 
ras que componen una escena. Perfil de 
cada elemento del escenario a representar. 


Manejador de objetos. Primer elemento del 
procesador de imágenes cuya misión bási- 
ca es la producción de objetos necesarios 
para la escena, teniendo en cuenta el punto 
de vista del observador. 


Manejador de polígonos. Depurador de los 
elementos producidos por el manejador de 
objetos, siguiendo criterios geométricos y 
de la estructura general de la escena a re- 
presentar. 


Objeto. Conjunto de elementos de escena 


que forman una unidad en la imagen a pro- 
yectar. 
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Procesador de canal. Procesador que, par- 
tiendo de los elementos generados por el 
procesador de punto de vista, compone la 
imagen y la transforma en coordenadas 
para el dispositivo de presentación final. 


Procesador geométrico. Dispositivo que 
recibe los elementos de la escena y los 
transforma en las coordenadas necesarias 
para su representación, controlando los lí- 
mites de la pantalla y otros datos de cada 
canal. 


Procesador de imagen. Conjunto de dispo- 
sitivos que crean la escena a representar, a 
partir de los parámetros introducidos y de 
los datos preexistentes en la Base de Datos. 


Procesador de punto de vista. Dispositivo 
que realiza la tarea básica de extraer ele- 
mentos y objetos de la Base de Datos, según 
la posición del observador, y se los envía al 
procesador de canal (a cada uno de ellos si 
hay varios canales y pantallas) adecuada- 
mente preprocesados. 


Span. Conjunto de pixels que se procesa 
como una unidad en la representación de 
imágenes. 


VOCABULARIO DE INFORMATICA == 


Machine address. (Véase Dirección abso- 
luta.) 


Machine code. (Véase Código máquina. 


Machine language. (Véase Lenguaje má- 
quina.) 


1 
Macroelemento. Uno o más elementos orde- 
nados, y que se utilizan como un único ele- 
mento de datos, con un identificador único. 
Por ejemplo, el macroelemento «fecha» in- 
cluye el conjunto de elementos ordenado- 

res, «año», «mes» y «día». 


Macroinstrucción. Instrucción, en lenguaje 
fuente, equivale a una secuencia específica 
de instrucciones máquina. Una macroins- 
trucción sustituye a un fragmento de pro- 
grama, que puede ser repetido numerosas 
veces en el programa principal, mediante 
las adecuadas «llamadas». En ocasiones se 
designan simplemente por «macros». 


Macroprogramación. Programación que 
utiliza macroinstrucciones. 


Maestro. Elemento prioritario con respecto a 
otro. Puede referirse, por ejemplo, a un pro- 
grama que controle otros programas, o a 
una copia de un fichero de la que se van a 
realizar otras copias, a un dispositivo que 
supervisa el trabajo de otros dispositivos, 
etcétera. 


Maestro /esclavo. Nivel jerárquico estable- 
cido entre dos dispositivos en un entorno de 
comunicaciones. Si un dispositivo «supervi- 
sa» la comunicación con otro segundo, el 


primero se llama maestro y el segundo pasa 
a ser el «esclavo» del primero. Terminada la 
comunicación, el nivel de jerarquía no tie- 
ne por qué mantenerse. 


Magnética, bucle de histéresis. Curva 
cerrada, que muestra la relación existente 
entre la magnetización y la inducción que 
la produce, a lo largo de un ciclo completo. 


Magnética, cinta. Cinta recubierta de una 
substancia magnética sobre la que pueden 
almacenarse datos, polarizando selectiva- 
mente algunas de sus zonas. En una cinta 
magnética los datos se escriben en sentido 
transversal: si la cinta se escribe en nueve 
pistas (caso usual), en los nueve bits de las 
pistas (a lo ancho de la cinta) se escribe los 
ocho bits de un byte de datos y el bit de con- 
trol de paridad). 


Magnética, línea de retardo. Línea de re- 
tardo cuya operación está basada en el 
tiempo de propagación de ondas magnéti- 
cas. 


Magnética, tarjeta. Tarjeta provista de una 
superficie magnética sobre la que se pue- 
den almacenar los datos, magnetizando de 
forma selectiva algunas zonas. La tarjeta 
puede contener solamente datos grabados 
magnéticamente o incluir también datos ob- 
servables a simple vista. 


Magnética, tinta. Tinta especial que lleva 
una substancia magnética detectable por 
sensores magnéticos. 


VOCABULARIO DE INFORMATICA IT 


Magnético, disco. Superficie circular plana 
recubierta de una substancia magnética 
susceptible de ser polarizada por zonas, 
que sirve para almacenar datos. La densi- 
dad de grabación de los datos de una cinta 
se suele expresar en bpi (bytes por 
inch=pulgada) que significa el número de 
bytes (es decir, de zonas transversales de 
escritura de datos) que se graban en la cin- 
ta en cada pulgada (aproximadamente, 2,5 
cam) de su longitud. La capacidad total de 
la cinta viene dada por la densidad de gra- 
bación (byts) y la longitud de cinta (800, 
1600, etc., pies de longitud). 


Magnético, núcleo. Material magnético, co- 
locado de una determinada forma en rela- 
ción con conductores eléctricos, y cuyas 
propiedades son esenciales para su utiliza- 
ción. Se usa para la obtención de campos 
magnéticos, para mantener polarizaciones 
en almacenamiento de datos o utilizando s:1s 
características no lineales, como elemento 
lógico. El material de que está compuesto 
suele ser hierro, óxido de hierro, ferrita, 
etcétera, y puede tener múltiples formas. 


Magnético, tambor. Cilindro circular recu- 
bierto de un substancia magnetizable. Se 
puede magnetizar por zonas para almace- 
nar información. Los tambores magnéticos 
son dispositivos en los que no se alcanzan 
(normalmente) velocidades de acceso muy 
altas, pero que pueden almacenar gran can- 
tidad de información. 


Main frame. Término inglés que designa la 
unidad central de proceso. También puede 
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referirse, por extensión, a un ordenador de 
grandes dimensiones y potencia, en contra- 
posición a los que se suelen llamar minior- 
denadores. 


Main program. (Véase Programa princi- 
pal.) 


Mantenimiento. Conservación del hardwa- 
re y software de la máquina. 


Mantenimiento preventivo. El que se rea- 
liza en un equipo, aunque no se haya pro- 
ducido ninguna avería, para asegurar su 
limpieza y su perfecto estado de conserva- 
ción (y prevenir, en alguna medida, las po- 
sibles averías). 


Mantisa. Parte fraccionaria del logaritmo de 
un número por extensión, puede referirse a 
la parte fraccionaria de cualquier número 
representado en coma flotante. 


Mapa. En informática, tabla de correspon- 
dencias entre los elementos de varios con- 
juntos. Esquema de distribución de un área 
de almacenamiento de datos (memoria) en 
distintas zonas, para usos diversos. 


Máquina. Dispositivo capaz de realizar algún 
trabajo. Véase tipos de máquina, etc. 


Máquina, aprendizaje de la. Término uti- 
lizado en la inteligencia artificial, por el cual 
se alude a la capacidad de un dispositivo 
para mejorar sus características basándose 
en sus anteriores experiencias. 


(LA 
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